Help with PHP code conversion to PERL

[armenica]

Hi!

 

This is not quite a PHP problem, but a PERL one. Does anyone know how I could convert the following PHP code to PERL? (openning a file stream to an URL and reading its replied content?)

 

$URL = "http://www.exampleurl.com";

$handle = fopen ($URL, "r");

$key = str_replace(' ', '%20', fread($handle, 1000000));

 

I would like to implement it in PERL...

 

Thanks in advance,

 

/V

[effigy]

Something like this (untested):

 

use warnings;
use strict;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new();
my $url = 'http://www.exampleurl.com';

$mech->get($url);
my $content = $mech->content();

$content =~ s/ /%20/g;