#!/usr/bin/perl
use Bar;
BEGIN {
    print "Testing\n";
}
print "this is a test.\n";

##</code><code>##

Execution order: BEGIN{}, (possible save of state
       through compiler back-end), INIT{}, program runs, END{}.