Help for this page

Select Code to Download

Select or download this

my $url = shift;
if (!$url) {
    print "Usage: $0 URI\n";
    exit 1;
}

Select or download this

if ($url !~ m(^http://)i) {
    $url = 'http://' . $url;
}