#!/usr/bin/perl
use strict;
use warnings;

my $pass=pass();
print "PASS:'".pass()."'\n";
print "PASS:'".pass()."'\n";
print "PASS:'".pass()."'\n";
print "PASS:'".pass()."'\n";

sub pass {
  local ($\,$~,$^,$:,$/,$,)=('')x6;
  my @l;
  ### <!-- PLATZHALTER
  push(@l,'nur ein test');
  ### PLATZHALTER --!>;
  pop(@l);
}
__DATA__