fellow monks,

A few months ago I submitted a piece a code and jeffa helped me out immensely by pointing me to Perltidy. Stylistically, I know I have much room for improvement. One thing I'm hoping to improve upon is the presentation of data as produced by my scripts. The following section of code presents a simple example.

open( WEBLOG, ">$log" );
print WEBLOG "====================\n";
foreach $string (@strings) {
    chomp $string;
    $string = "$string" . " HTTP/1.0\012\012";

    my $sock = IO::Socket::INET->new(
        PeerAddr => $host,
        PeerPort => $port,
        Proto    => $proto
    );
    print $sock "$string";

    while (<$sock>) {
        push @page, $_;
    }
    if ( $page[0] =~ m/404/ ) {
        chomp $string;
        print WEBLOG $string;
        print WEBLOG "====================\n";
    }
    @page = ();

}
close(WEBLOG);
[download]

and this would produce the following output:

====================
GET /FOO HTTP/1.0
====================
GET /FOOBAR HTTP/1.0
====================
[download]

I am looking for a better way to present data such as this, e.g include a document title, page numbers, and multiple columns if appropriate. Currently, my formatting skills are limited to printing a series of characters to separate the output. Is there a better way? Any assistance will be greatly appreciated.

cheers, -semio