#!/usr/bin/perl
use strict;
use warnings;
use Win32API::Resources;
use 5.010;

my @List = Win32API::Resources::GetDrives('DRIVE_REMOVABLE');
say join("\n",@List);