Select Code to Download

print "$_ => $stats{ $_ }" for sort keys %stats;

#!/opt/local/bin/perl
use Inline C => Config => BUILD_NOISY => 1;
...
    print $read->qname, "\n", $res, "\n";
}
print pp \%stats;