#!/usr/bin/perl -w
use strict;
use Win32API::File qw(:ALL);
{
    my $mode= SetErrorMode( 0 );
    $mode |= SEM_FAILCRITICALERRORS;
    SetErrorMode( $mode );
}
opendir( DIR, "a:/" )
   or  die "Can't read directory from a:/; $!\n";
my @files= readdir(DIR);
closedir(DIR);