I have used the same script as below:

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.
[download]

OS:Win2008 R2 Server Perl Version:This is perl 5, version 14, subversion 2 (v5.14.2) built for MSWin32-x86-multi-thread