sub get_drive {
    for my $letter ( 'B' .. 'Q', 'A' ) {
        return "$letter:" if -e "$letter:/extracted";
    }
    return;
}