my @oth_paths = ("T:\\temp", "D:\\WIPdata");

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