Select Code to Download

my $cmd="isql $connect-string";
open ISQL, "|$cmd" or die "couldn't open $cmd:$!\n";
print ISQL <<end;
select * from whatever;
...

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";