Help for this page

Select Code to Download

Select or download this

    use strict;
    use warnings;
...

        print '-' x length $d, "\n\n";
    }