my $drive = substr(getcwd(), 0, 2);
chdir('C:\\');
chdir($drive);