Select Code to Download

use strict;
use warnings;

...

print "Checking $_: ", $agent->head($_)->code, "\n" for $extor->links