use File::Copy qw(copy); use autodie qw(copy);