#!/usr/bin/env perl

use strict;
use warnings;
use autodie ':all';

use Moose;

BEGIN {
    print "BEGIN block\n";
}

sub should_not_run {
    print "&should_not_run ran!\n";
} 

should_not_run();

print "This shouldn't print\n";

INIT { exit }

INIT { print "This INIT shouldn't run.\n" }