Help for this page

Select Code to Download


  1. or download this
    #! /usr/bin/perl
use strict;
...
# lets have a look at the result
print "$howManyFound URIs found\n";
print "$text\n";
  2. or download this
    use URI::Find; # instead of URI::Find::Schemeless
...
...
  );

...
  3. or download this
    BEGIN {
  use FindBin qw($Bin);
  use lib "$Bin/lib";
}
use URI::Find::Schemeless;