Select Code to Download

use strict;
my $line_length = 10;
...

print "-" x $line_length,"\n";
print "$_\n" for @lines;