note
DigitalKitty
<strike>
Hi [funstence].
<br />
<br />
I wrote a simple program that you might find useful.
<br />
<code>
#!/usr/bin/perl
use warnings;
use strict;
use LWP::Simple;
my $file = 'test.txt';
my $content = get('http://www. google.com');
open FH, " >", "$file" or die "Error: $!\n";
print FH $content until -s $file >= 25;
# I routinely include code to check for a successful closing
# of the filehandle since a hardware error could occur.
close FH or die "Error: $!\n";
</code>
<br />
<br />
Hope this helps,
<br />
~Katie
</strike>
614534
614534