$file = $0;

##</code><code>##

% perl -e 'print "$0\n"'
-e

##</code><code>##

$file = "/foo";