### Hauptprogramm ###

#!/usr/bin/perl

use strict;

use lib './classes';
use builder;

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



### Package ###

package builder;

use strict;

sub new {
    my ($class, $author) = @_;

    my $self = { _author => $author };

    return bless($self, $class);
}

sub print {
    my ($self) = @_;

    print $self->{_author}."\n";
}

1;