sub callback {
    my ($url) = @_;
    print "$url\n";
    kill 9, $$;
}