use strict;
use warnings;
use Fcntl qw(:DEFAULT :flock);
sub modulname {
    my ($eingangref,$ausgangref) = @_;
    ...
}
return '1';