Select Code to Download

package PL::Mail;
my $server = 'pop.dnvr.qwest.net';
...
    }; # 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 };
...