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

##</code><code>##

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