package MyProcedures;
use strict;
use warnings;

sub import {
    my $class = shift;
    my $caller = (caller)[0];
    no strict 'refs';
    for my $f (@_) {
        *{"$caller\::$f"} = sub { print "$f\n" };
    }
}

1;