You should be able to do something similar to this without installing any additional modules. You will need to parse the $capture string into columns (they are seperated by tabs)
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;