Select Code to Download

#!/usr/bin/perl -w 
use strict;
my %seen;
...
if (@once) {
    print "Possible unused variables found: \n\n", join("\n", @once), 
+"\n";
}

$ perl use.pl foo.pl
Possible unused variables found: 

var_a