system($file1);
if ($? == -1) {
    die("Can't execute command: $!\n");
} elsif ($? & 127) {
    die("Command died from signal ", ($? & 127), "\n");
} elsif ($? >> 8) {
    die("Command exited with error ", ($? >> 8), "\n");
}