use IPC::Open2;
use FileHandle;
use strict;

my ($rdr,$wtr) = (FileHandle->new , FileHandle->new);
my $pid = open2($rdr , $wtr , "mysql -uuser -ppassword database");
my $capture;
    print $wtr qq"select ARKET_CODE from envent where CODE='${vCode}';\n";
    close($wtr);
    while (<$rdr>) {
        $capture .= $_;
    }
print $capture , "\n";

1;