#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;

##</code><code>##

The name is mytest=HASH(0x176f1e8)

##</code><code>##

The name is Yoda