1
Unused variable my $foo at ./warntest.pl line 9.
Unused variable my $bar at ./warntest.pl line 10.
2
3
4

5