Help for this page
#!/usr/bin/perl ... my $foo = 42; my $bar = 43; exit(eval q[$foo++]);
Unused variable my $bar at ./warntest.pl line 8.