use File::Copy;
use File::Path;
#my $filename, $file2 declared somewhere

move( "$filename", "$file2" ) or die "move failed: $!";
#check File::Path's mkpath for use