#! /usr/bin/perl -w
#  Different ways to open file on another networked windows machine.
#  Assume: Other computers name is Zoe
#		 The file is in the shared directory zoe_data\test
#		 The directory zoe_data has been mapped localy to F:
#		 The filename is test.txt 
@mypaths = 	( 
				'\\\\Zoe\\zoe_data\\test\\',
				'F:\\test\\',
				'//Zoe/zoe_data/test/',
				'F:/test/'
			);

$filename = "test.txt";

foreach $path (@mypaths) {
print "\n\nOpening file [", $path . $filename, " ]\n\n";
open (IN,$path . $filename) or die "can't open the file: $!\n";
print while (<IN>);
close (IN);
}