#!/usr/bin/perl

use strict;

package builder;

my $author;

sub new {
   my ($class, %args) = @_;
   $author = $args{author};
   return bless(\%args, $class);
}

sub print {
   my ($self) = @_;
   print $author."\n";
}

package main;

my $builder;
$builder = builder->new(author => "Author");
$builder->print();

my $b2;
$b2 = builder->new(author => "Joe");
$b2->print();
$builder->print();