package Modul1;

sub new {
   return bless {}, shift;
}

sub sub1 {
  # Reaktion auf Message1
}