sub fix_URL {
    use URI;
    my $in = shift;
    my $url = URI->new($in);
    $url->scheme('http');
    print "input is: $in\n";
    print "fixed url is: $url\n";
}