use Cwd;
my $cwd = cwd();
my ($cdrom_drive_letter) = $cwd =~ m/^(\w:)/;