# file include.pl
use strict;
our $me;
sub japh {
    print $me,"\n";
}