#file caller.plx require mytest; use strict; my ($mt) = new mytest; $mt->put_name("Yoda"); print "The name is ".$mt->get_name()."\n"; ######file mytest.pm use strict; my $name; sub new { my $self = {}; bless $self; return $self; } sub get_name { if (defined ($name)) { return $name; } else { return "error"; } } sub put_name { $name = "$_[0]"; } 1;