use Path::Class;
my @dirs = qw/path to my directory/;
my $path  = my $dir = Path::Class::Dir->new(@dirs);
$path->mkpath; #creates the directories as necessary
##</code><code>##

use File::Copy;
move('file_to_move', $path);