Select Code to Download

system($file1);
if ($? == -1) {
...
} elsif ($? >> 8) {
    die("Command exited with error ", ($? >> 8), "\n");
}

use Devel::Peek;
Dump($?);