Select Code to Download

#!/usr/bin/perl

...
print "\nTotal of $nlisted 'my' variables declared$listyp in $file\n";
print "(see $file.deparse for correct line-number references)\n"
    if ( $nlisted );