Use File::Copy
...
copy($a,$b) ||  die "$!";