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