Select Code to Download

    use File::Copy;

    umask 022 or die "Failed to set umask: $!";
    copy $src => $dest or die "Failed to copy: $!";

    system cp => '-a', $src, $dest;
    die "..." if $?;

    #!/usr/bin/perl

...
    __END__
    /tmp/one is executable
    /tmp/three is executable