perl -e "$FILE='file_that_exists';open(FILE) || die('file open failed');"