Help for this page

Select Code to Download


  1. or download this
    use strict;
    my $line_length = 10;
    ...
    
    print "-" x $line_length,"\n";
    print "$_\n" for @lines;