Select Code to Download

    package WarnUsedOnce;

    use Filter::Simple sub {
...

    1;

    use WarnUsedOnce;

    my $var1 = 1;
...

    Name "main::array" used only once: possible typo at test.pl line 5
+.
    Name "main::var1" used only once: possible typo at test.pl line 3.