use File::Copy;
use Cwd;

my $file = 'foo bar';
my $dest = 'dest dir';
my $cwd  = getcwd();
my $src  = "$cwd/$file";

open my $fh, '>', $file or die "Can't write '$file': $!\n";
close $fh;

mkdir $dest or die "Can't mkdir '$dest': $!\n";
copy ($src, $dest) or die "Can't copy '$src' to '$dest': $!\n";