use strict; use warnings; use Tie::File; my $dir = "//folderA/folderB/folderC"; my $file = "//folderA/folderB/folderC/folderD/file.txt"; if (-d -e -r $dir){ print "Folder exists and readable.\n";} if (-f -e $file){ print "File exists and accessible.\n";} tie my @content, 'Tie::File', $file or die "Cannot open $file for reading."; Folder exists and accessible. File exists and accessible. Cannot open //folderA/folderB/folderC/folderD/file.txt for reading. at te st.pl line 14.