Select Code to Download

    next unless defined($token->[1]{href});
    next unless defined($token->[1]{class});
    next unless $token->[1]{href} =~ /\?page=/ || $token->[1]{class} =
+~ /top10_link/;
    my $urls = $token->[1]{href};

if(!$parent{$urls}){
      my $count = keys %parent;
...
        &passing($urls);
      }
    }

#!/usr/bin/perl -w
use strict;
...

&passing("http://www.ash-distribution.co.uk/index.php?c=%20Ink&sc=Epso
+n%20Replacement%20Cartridges");