#!/usr/bin/perl
use strict;
use warnings;
use 5.012;

use Phases;

my $main_closure = bless {name => 'main_closure'}, 'Phases';
sub closure {
    say $main_closure;
}
my $external = bless {name => 'external'}, 'Phases';
END       { say 'Main END'     }
say 'Main Last line';