Select Code to Download

my $cmd = "cp $foo $bar";
my $r = system($cmd);
...
        die "'$cmd' exited with value %d\n", $? >> 8;
    }
}

    copy($foo, $bar) or die "cannot copy $foo to $bar: $!";