$ echo foo | perl -e'@ARGV = "-" if !@ARGV; open FILE, $ARGV[0] or die $!; print <FILE>'
foo