sub get_drive{

if(-e 'A:\\extracted'){$drive = "A:";} elsif
(-e 'B:\\extracted'){$drive = "B:";} elsif
(-e 'C:\\extracted'){$drive = "C:";} elsif
(-e 'D:\\extracted'){$drive = "D:";} elsif
(-e 'E:\\extracted'){$drive = "E:";} elsif
(-e 'F:\\extracted'){$drive = "F:";} elsif
(-e 'G:\\extracted'){$drive = "G:";} elsif
(-e "H:\\extracted"){$drive = "H:";} elsif
(-e "I:\\extracted"){$drive = "I:";} elsif
(-e "J:\\extracted"){$drive = "J:";} elsif
(-e "K:\\extracted"){$drive = "K:";} elsif
(-e "L:\\extracted"){$drive = "L:";} elsif
(-e "M:\\extracted"){$drive = "M:";} elsif
(-e "N:\\extracted"){$drive = "N:";} elsif
(-e "O:\\extracted"){$drive = "O:";} elsif
(-e "P:\\extracted"){$drive = "P:";} elsif
(-e "Q:\\extracted"){$drive = "Q:";}

};