Select Code to Download

sub find_item() {
    my $link = shift;
...
    }
    return undef;
}

#!/usr/bin/perl

...
    sleep 15 * 60; # 15 minutes, play nice
}