sub such_eintr {        my (%param) = @_;        my $param =  \%param;        print "\n";        print "FORMULAR";        print '';       print '
';      ....      .....       print ' <<<       '; .... ....