X:\>perl -e "open($file) || die('file open failed');"
file open failed at -e line 1.

X:\>perl -e "open('xx') || die('file open failed');"
file open failed at -e line 1.