if ( -r $file ) {
  print "$file is readable\n";
}
else {
  print "$file is _NOT_ readable!\n";
}