package Sucker;

sub new {
...
}

sub suck(...) {
   my $self = shift;

   #
   # auswertungen
   #
  
   unless(error) return 1;
   else {
      $self->{lasterror} = $message;      
      return 0;
   }  
}

sub getlasterror {
   return shift->{lasterror};
}

1;