#!/usr/bin/perl -w

use strict;


my $share_path = '\\\\Zoe\\zoe_data\\';
my $test_file = 'test.txt';

open (INP, $share_path . $test_file) or 
    die "Can't open file [$share_path . $test_file]: $!\n";


while (<INP>){
	print;
}
close (INP);