>perl -E"sub BEGIN { say 'BANG!'; } sub END { say '2012'; }"
BANG!
2012