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