Select Code to Download

SELECT table_name FROM user_tables

SELECT column_name from ALL_CONS_COLUMNS WHERE owner= ? and table_name
+ = ?

#!/usr/bin/perl -w

...
close OUTPUT;
select STDIN;
$db->disconnect;

perl -e 'print "How sweet does a rose smell? "; chomp ($n = <STDIN>); 
+$rose = "smells sweet to degree $n"; *other_name = *rose; print "$oth
+er_name\n"'