Select Code to Download

use strict;
use warnings;
...
    $foo += $val;

}

use strict;
use warnings;
...
    printf "[%s] badness: %s\n", $$, $foo;
    $foo += $val;
}