my $base_dir = "C:/Text_Files";
my $new_dir  = "D:/Test";

opendir (DIR, "C:/Text_Files") || die "Could not open data directory\n";
my ($top_file) = reverse sort readdir(DIR);
closedir (DIR);

use File::Copy;
move($base_dir.$top_file, $new_dir.$top_file);