#!/usr/bin/perl

my $wert = meinefunktion();
print "$wert\n";

sub meinefunktion{

eval{
return('plitsch')
};

return('platsch');
}