Select Code to Download

#!/usr/bin/env perl
use Modern::Perl;
...
    say qq| <p style='font-family:mono;background:$bg'>$_</p> |;
    $c = 0 if $c++ == 1;
}