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

##</code><code>##

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