### Hauptprogramm ###

#!/usr/bin/perl

use strict;

use lib './classes';
use builder;

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



### Package ###

package builder;

use strict;

my $author;

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

    $author = $args{author};

    return bless(\%args, $class);
}

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

    print $author."\n";
}

1;