#!perl

use strict;
use warnings;

package MyPkg;
sub one {
    1;
}
sub two {
    1;
}
1;

package main;

my $p = pre();
print $p . MyPkg->one;

sub pre {
    return "ONE = ";
}