dan@dbdb$ perl -le 'print "lies" if -r shift' somefile.png
dan@dbdb$