sub new {
    my $class = shift;

    my $self  = bless {
      'intpref'    => shift,
      'prefix'     => shift,
      'telnum'     => shift,
      'smstext'    => shift,
      'cookie_jar' => "lwpcookies.txt",
      @_,
    }, $class;

    # ... other things with $self ...

    $self;
}