Applying a regex across multiple files

This is the anonymous monk who posted the question. Thanks to Nuance, juahonen, and lhoward for their help.

Sorry for the prior (partially unformatted) reply. I expected <CODE></CODE> to provide implied breaks.

Here's what I came up with. I don't fully grok the OO stuff, but the Owl, Ram, Llama and Camel books help enough to get simple stuff done. This is the first time I've looked for outside help - y'alls responsiveness is great.

Suggestions for improvements are welcome.

#!/usr/bin/perl -wT

# Specify Perl modules
use Time::localtime;
use Net::Ping;
use LWP::UserAgent;

# Define base scalars
my $time     = localtime;
my $targurl  = 'http://wwwsomesite/somefile.html';
my $targhost = 'www.somesite';
my $agent    = 'Mozilla/4.5 [en] (X11; I; Linux 2.0.36 i486; Nav)';
my $raw      = '/tmp/tempfile';
my $out      = '/var/www/outfile.txt';
my $pl       = 'thisfilename.pl';
my $desturl  = 'http://thiswebserver.org';

# Gen log header
printf " thisfile.pl : %02d-%02d-%04d    %02d:%02d:%02d\n", $time->mon
++1, $time->mday, $time->year+1900, $time->hour, $time->min, $time->se
+c;
prin
[download]