Select Code to Download

use warnings;
use strict;
...
    my ($url) = @_;
    print "$url\n";
}

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