Select Code to Download

use strict;
use warnings;

...

# Does it work? (Yes, it does.)
print $trap;

 Code  Cmts   POD Total File
============================================================
    3     1     4     8 ./test.pl
============================================================
    3     1     4     8 -- Summary of all files