#!/usr/bin/perl -w
use strict;

my $ip="192.2.1.1"; 
my $get="/htdocs";

format STDOUT_TOP =
IP Address       Request
---------------- --------------------------------
.

format STDOUT =
@<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ip,             $get
.

# Uses the format for the handle specified (STDOUT is default):
write;
