open my $out, "|sql>tmpfile" or die $!;
print $out "select 'soemthing';\n";
print $out "exit;";
close $out;
my $x = `cat tmpfile`;