$ua = new LWP::UserAgent;
 $ua->agent('Mozilla/4.0 (compatible; MSIE 5.0; Windows 2000) Opera 5.12  [en]' . $ua->agent);
 $ua->agent('Mozilla/4.0 (compatible; MSIE 5.0; Windows 2000) Opera 5.12  [en]');
 $req = HTTP::Request->new(GET => 'http://www.chollonet.com/trucoteca/truco.php?idjuego=598&plataforma=4');
 print "$id\n";
 
 $html=$ua->request($req)->as_string;

##</code><code>##

$ua = new LWP::UserAgent;
 $ua->agent('Mozilla/4.0 (compatible; MSIE 5.0; Windows 2000) Opera 5.12  [en]' . $ua->agent);
 $ua->agent('Mozilla/4.0 (compatible; MSIE 5.0; Windows 2000) Opera 5.12  [en]');
 $req = HTTP::Request->new(GET => 'http://www.chollonet.com/trucoteca/truco.php?idjuego=$id&plataforma=4');  #<-----JUST USE $ID insted of number
 print "$id\n";
 
 $html=$ua->request($req)->as_string;