Не ожидал я такой засады с File::Copy. Причём нигде даже не сказано, что он права не копирует...
[root@host tmpx]# cat testcopy.pl
#!/usr/bin/perl
use File::Copy;
copy ("x.pl","y.pl");
[root@host tmpx]# ls -l
total 8
-rw-r--r-- 1 root root 54 Dec 3 08:51 testcopy.pl
-rwxr-xr-x 1 root root 0 Dec 3 08:50 x.pl
-rw-r--r-- 1 root root 0 Dec
(
Read more... )