use File::Copy qw( move );
move($source,$destination) or die "Can't move '$source' to '$destination': $!";