#!/usr/bin/perl -w
use strict;
sub mod_perl {
    {
        my $static1;
        print "[", defined($static1) ? $static1 : "undef", "] ";
        BEGIN { $static1= "Hello" }
        sub sub1 {
            my $old= $static1;
            $static1= shift if @_;
            return $old;
        }
    }
    BEGIN {
        my $static2= "Hi";
        print "<$static2> ";
        sub sub2 {
            my $old= $static2;
            $static2= shift if @_;
            return $old;
        }
    }
    print "(",sub1(shift),") ";
    print "(",sub2(shift),")\n";
}
mod_perl(qw( Goodbye Bye ));
mod_perl(qw( Morning Morn ));
mod_perl(qw( Evening Eve ));
mod_perl();