Select Code to Download

$cmd = 'del nonexistent.file'; 
chomp($res = `$cmd 2>&1`);
print "\n[Command is :: ", $cmd, "]\n[RESULT:: ", $res,"]\n\n";

[Command is :: del nonexistent.file]
[RESULT:: Could Not Find C:\My Documents\foo\Perl\dl\debug\nonexistent
+.file]