$file = "//my_machine/share/file1.txt"; unless (open (FILE, $file)) { die "Couldn't open $file." } @file = ; close FILE; print @file;