Select Code to Download

#!/usr/bin/perl

...
my $foo = 42;
my $bar = 43;
exit(eval q[$foo++]);

Unused variable my $bar at ./warntest.pl line 8.