my $cmd="exec_isql.pl";
open OUT, "$cmd|" or die "couldn't open $cmd:$!\n";
my @results = <OUT>;
print "First row is " . $results[0] ."\n";