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

var_a