Scott Cornette <[EMAIL PROTECTED]> wrote:
> rename($file,$bakfile); # maintain a copy of the original
> open(RETRIEVE, ">$files") || die "Could not open file $file for retrieval\n";
> select(RETRIEVE);
> getprint($url);
> close(RETRIEVE);
Why are you using getprint()? Just use get(). After the open,
just do
my $text = get($url) or die "Can't retrieve page";
print RETRIEVE $url;
close RETRIEVE;
--
Keith C. Ivey <[EMAIL PROTECTED]>
Washington, DC
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
