$self = bless {
  'intpref'    => $intpref,
  'prefix'     => $prefix,
  'telnum'     => $telnum,
  'smstext'    => $smstext,
  'cookie_jar' => "lwpcookies.txt",
  %hash,
}, $class;
##</code><code>##

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