sub new {
    my ($self, $key, $value);
    my $class = shift;
    my ($intpref, $prefix, $telnum, $smstext, %hash) = @_;
        $self = bless {
            'intpref' => $intpref,
            'prefix' => $prefix,
            'telnum' => $telnum,
            'smstext' => $smstext,
            'cookie_jar' => exists $hash{cookie_jar} ? 
                            delete $hash{cookie_jar} :
                            "lwpcookies.txt",
        }, $class;
        for (($key, $value) = each %hash) {
            $self->{$key} = $value;
        }
    $self;
}