use strict;
use warnings;
use Win32::FileOp;

my %drive = Mapped or die $^E;
for my $key (sort keys %drive) 
{
    print "$key = $drive{$key}\n";
}

OUTPUT:This network connection does not exist at net-fileOP.pl line 5.