#!/usr/bin/perl

use strict;
use LWP::Simple;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new();
$ua->agent("MS-DOS 3.20");
my @array = head(shift);
my $i = 0;
foreach my $line (@array) {
  print "$i: $line\n";
  $i++;
}