if(-f $name ) { if(!(-w $name)) { print "File '$name' doesn't have write permission\n"; } }