use strict;
use lib ('./');
require 'module2.pl';

Alice->mTest2 ("Some stuff", "and something else");
1;

##</code><code>##

use strict;
package Alice;

sub mTest2 {
  my ($junk, $and) = @_;
  print "$junk=$junk\n\$and=$and";
}