# Pit.pm
package Pit;
use strict;

sub new {
    my ($class, $email) = @_;
    return bless {
        email => $email,
    };
}

sub printIT {
    my $this = shift;
    print '2) ', $this->{email}, "\n";
}

# main script:
use strict;
use Pit;

my $pit = Pit->new('me@example.com');
$pit->printIT;