my $sql = "select * from users";
open (COMMAND, "| /opt/sql " ) || die $!;
print (COMMAND "connect credentials")
print (COMMAND "$sql\n");

##</code><code>##

--> 4, 4, Reporting, , F, 1, 0, 0, 0, 0, 0, F, 0, F, 0, F, , BLOB(0)

##</code><code>##

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

##</code><code>##

--> 4, >4, Reporting, , F, 1, 0, 0, 0, 0, 0, F, 0, F, 0, F, , BLOB(0)