my $ob1 = foo->new('alpha');
my $ob2 = foo->new('beta');

##</code><code>##

my $ob1 = alpha->new();
my $ob2 = beta->new();

##</code><code>##

use strict;
use warnings;

my $ob1 = alpha->new()
my $ob2 = beta->new()

$ob1->write;
$ob2->write;

BEGIN {
    package foo;
    sub new{
        my $class = shift;
        return bless {}, $class;
    }
    sub write{
        my $self = shift;
        print $self->read;
    }
}

BEGIN {
    package alpha;
    our @ISA = 'foo';
    sub read{
        return "Alpha\n";
    }
}

BEGIN {
    package beta;
    our @ISA = 'foo';
    sub read{
        return "Beta\n";
    }
}