C:\chas_sandbox\PM>bak.pl *.pl
Copy failed: No such file or directory at C:\chas_sandbox\PM\bak.pl line 34.
####
for my $file (@ARGV) {
for my $globfile (glob($file)) {
copy($globfile, "backup/${globfile}_$date") or die "Copy failed: $!";
}
}
####
C:\chas_sandbox\PM>bak.pl *.pl
C:\chas_sandbox\PM>