sub download {
if ( $nave->mirror( $_[0], $_[1] ) ) {
if ( -f $_[1] ) {
You are not allowed to view links.
Register or Login true;
}
}
}
sub repes {
my @limpio;
foreach $test (@_) {
You are not allowed to view links.
Register or Login @limpio, $test unless $repe{$test}++;
}
You are not allowed to view links.
Register or Login @limpio;
}
sub toma {
You are not allowed to view links.
Register or Login $nave->get( $_[0] )->content;
}
sub get_links {
$test = HTML::LinkExtor->new( \&agarrar )->parse( $_[0] );
You are not allowed to view links.
Register or Login @links;
sub agarrar {
my ( $a, %b ) = @_;
You are not allowed to view links.
Register or Login( @links, You are not allowed to view links.
Register or Login %b );
}
}