1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
#!/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__