Select Code to Download

C:\chas_sandbox\PM>bak.pl *.pl
Copy failed: No such file or directory at C:\chas_sandbox\PM\bak.pl li
+ne 34.

for my $file (@ARGV) {
    for my $globfile (glob($file)) {
        copy($globfile, "backup/${globfile}_$date") or die "Copy faile
+d: $!";
    }
}

C:\chas_sandbox\PM>bak.pl  *.pl

C:\chas_sandbox\PM>