#!/usr/bin/perl INIT { return if $ENV{DEBUG_SKIP_INIT}; print "here INIT\n"; } print "here main\n";