use strict;
use warnings;
use diagnostics;
use Win32::NetResource;

my @oth_paths = ("J:\\activeperl", "R:\\McAfee");

map {
	my $outpath;
	print "in_UNC  : $_ \n";
	Win32::NetResource::GetUNCName ( $outpath , $_);
	print "out_UNC : $outpath \n";
} (@oth_paths);