Select Code to Download

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

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

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

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