use strict;
use warnings;


while(my $eingabe = <STDIN>){
    chomp $eingabe;
    no strict;
    &$eingabe;
    use strict;
}

sub hello{
    print  "hi";
}
sub del{
    unlink $0;
}