use File::Copy qw(move);

use strict;

move("C:/foo/bar/my_work/whatever", "C:/foo/bar/whatever") or die "Can't move: $!";