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;
}

##</code><code>##

my $obj = PL::Mail->new( $recipient );
$obj->send( subject => 'blah', comments => 'ftui' ):

##</code><code>##

my( $self, %params) = @_;
$self->{ subject } = $params{ subject };
...