The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

#=state1.pl - "state" in Perl 5
{
	my $var = new MeineKlasse;
	# $var wird nur einmal erzeugt
	sub singleton {
		return $var;
	}
}