perl -e "print '$\ undefined', $/ unless defined $\;"