Gostaria de um script em perl que lista todos os arquivos do pendrive assim que o mesmo for conectado