use strict; use warnings; sub fehlersub { my $bar = shift; my $foo; $bar += $foo; } return 1;