package Mysubs;

use strict;
use warnings;

use base qw( Exporter );
our @EXPORT = qw( fee fi fo fum );

sub fee {
    print "You called Mysubs::fee()\n";
}

sub fi {
    print "You called Mysubs::fi()\n";
}

sub fo {
    print "You called Mysubs::fo()\n";
}

sub fum {
    print "You called Mysubs::fum()\n";
}

1;


##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use Mysubs;

fee();
fi();
fo();
fum();