Select Code to Download

use Modern::Perl;

my @l = system(`ls -1b`);
...
    say qq| <p style="font-family:mono;background:$bg">$_</p> |;
    $c = 0 if $c++ == 1;
}