package PL::Mail;
my $server = 'pop.dnvr.qwest.net';
sub new
{
my ( $class, $to ) = @_;
my $self =
{
Smtp => $server,
From => 'Postmaster',
To => $to ? $to : 'devin.austin@gmail.com',
}; # hashref containing instance variables
return bless $self, $class;
}
####
my $obj = PL::Mail->new( $recipient );
$obj->send( subject => 'blah', comments => 'ftui' ):
##
##
my( $self, %params) = @_;
$self->{ subject } = $params{ subject };
...