use File::NCopy; 
$c = new File::NCopy(preserve => 1); 
$c->copy("test", "test2");