#!/usr/bin/perl use strct; use warnings; use mein_test; mein_test::machwas();