Select Code to Download

#! perl -slw
use strict;
...
print scalar keys %partns, " partitons found.";

exit;