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


MODUL:

sub new {
    my $self = shift;
 
   $self->{ID} = shift;
   $self->{APP} = shift;
   $self->{X} = shift;
   $self->{Y} = shift;
   $self->{IMG} = shift;
   $self->{IMGHV} = shift;
   $self->{HV} = 0;
   
    my $Referenz = {};
    bless($Referenz,$self);



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

  
    return($Referenz);
}




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