#!/usr/bin/perl -w

use strict;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new();

my $response = $ua->get('http://www.random.org/cgi-bin/randnum?num=100&min=1&max=100&col=1');

if ($response->is_success) {
	print $response->content;
} else {
	print $response->status_line;
}