my $sql = "select * from users";
my $pid = open2 (OUT, IN, "/opt/sql") || die $!;
print (IN "connect credentials");
print (IN "$sql\n");
while (<OUT>) {
    print $_;
}