#!/usr/bin/perl
-# $Id: auto-dia.pl,v 1.9 2003-04-24 16:33:23 kycl4rk Exp $
+# $Id: sqlt-diagram.pl,v 1.1 2003-06-16 18:22:17 kycl4rk Exp $
=head1 NAME
use Pod::Usage;
use SQL::Translator;
-my $VERSION = (qw$Revision: 1.9 $)[-1];
+my $VERSION = (qw$Revision: 1.1 $)[-1];
#
# Get arguments.