timethese(25000000, {
A => sub {use vars qw(@meine);},
B => sub {use vars qw($bilder $dbh $cgi $sth $statement $lnr $outtext);},
C => sub {use vars qw(%meine);},
D => sub {our @meine;},
E => sub {our ($bilder,$dbh,$cgi,$sth,$statement,$lnr,$outtext);},
F => sub {our %meine;}
});