Select Code to Download

#!/usr/bin/perl  -I/tmp/perl/libwww-perl-5.53/lib/

...
    push @totallinks, extractlinks($links[$i], "a");
}
print join("\n", @totallinks), "\n";

Variable "$linktype" will not stay shared at lnkchk.pl line 22.
Variable "@sublinks" will not stay shared at lnkchk.pl line 23.