Aufruf:
    $SimpleButton = SimpleButton->new($id,$app,(65*$x),(25*$i),$img,$img2);


MODUL:

sub new {
    my $self = shift;

 
   my $Referenz = {};


  $Referenz->{ID} = shift;
  $Referenz->{APP} = shift;
  $Referenz->{X} = shift;
  $Referenz->{Y} = shift;
  $Referenz->{IMG} = shift;
  $Referenz->{IMGHV} = shift;
  $Referenz->{HV} = 0;

   bless($Referenz,$self);



    print "  --  ",$Referenz->{IMG}," ---";
    $Referenz->draw($Referenz->{IMG});

 
   return($Referenz);
}




sub draw
{
    my ($self, $img) = @_;
    print "IMG: $img";
}