Select Code to Download

#!/usr/bin/perl -w

...
my $getit = try->new;

system("echo \'$getit->{SQL}\' | sqlplus -s system/manager");