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;

##</code><code>##

$ perl -e 'use MyProcedures qw(one two three); one(); two(); three();'
one
two
three