#!/usr/bin/perl

use strict;
use warnings;

use Win32::API;

my $function = Win32::API->new( 'kernel32', 'GetLogicalDriveStringsA', 'NP', 'N' );

my $drivestr = ' 'x1024;
my $ret = $function->Call( 1024, $drivestr );

print "'$_'\n" for split "\0", substr( $drivestr, 0, $ret );
<STDIN>;

__END__