#!/bin/perl
use strict;
use warnings;

my $dir= shift || "/mnt/freenas/audio/Madonna/Madonna - True Blue/";

system 'ls','-l',$dir;

opendir my($dh),$dir  or die "can't open dir $dir";
print "Looking at files in $dir :\n";
for my $file (readdir $dh)
{	next if -d $file;
	print "$file\n";
	my $f="$dir/$file";
	print " -e false\n" unless -e $f;
	print " -r false\n" unless -r $f;
	print " -R false\n" unless -R $f;
	print " open failed\n" unless open my($fh),$f;
}