Select Code to Download

#!/usr/bin/perl

...
    my $r = "thirdsub";
    print Dumper $r;
}

Name "Frob::Dumper" used only once: possible typo at useuse.pl line 31
+.
$VAR1 = 'secsub';
$VAR1 = 'thirdsub';
print() on unopened filehandle Dumper at useuse.pl line 31.