dan@dbdb$ sudo perl -le 'print "lies" if -r shift' somefile.png
lies
dan@dbdb$ sudo file somefile.png
couldn't open file
somefile.png: regular file, no read permission