use Win32::Script qw/WScript/ ;
$output = WScript('Shell')->Exec("ls")->StdOut->ReadAll ;
print $output ;