use File::Copy;

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