Select Code to Download

spool "foobar.dat";
select count(*) from foo_table;
exit;

 perl -e '`sqlplus myuser/mypassword@server @foo.sql`; my $res = `cat 
+foo.dat`; if($res=~m/(\d+)/){print $1}'