package mein_test; use strict; use warnngs; sub machwas { print "OK\n"; } 1;