or download this
print "\nThis program reformats scripts produced by SQL Server 2000 En
+terprise Manager\n";
print "to remove brackets and tab out data types and null settings.\n\
+n";
print "You provide a file name, this program reads it and produces a n
+ew file\n";
...
close(OUT) || die "problem closing new $outfile: $!";
close(IN) || die "problem closing original $sqlfile: $!";