use strict;
use warnings;
use WWW::Mechanize;

my $start = "http://www.domain.com";
my $mech = WWW::Mechanize->new( autocheck => 1 );
my $regex = qr/\d+.+\.pdf$/;
my @aLinks = findAllLinks($mech, $start, $regex);

for my $link ( @links ) {
   my $url = $link->url_abs;
   my $bytecount = getByteCount($mech, $url);
   print "Fetching $url";
   print "   $bytecount bytes\n";
} 

sub findAllLinks {
  my ( $mech, $start, $regex ) = @_;

  $mech->get( $start );
  return $mech->find_all_links( url_regex => $regex );
}

sub getByteCount {
  my ($mech,$url) = @_;
  my $filename = $url;
  $filename =~ s[^.+/][];
  $mech->get( $url, ':content_file' => $filename );
  return -s $filename;
}

##</code><code>##

use strict;
use warnings;
use Test::More qw(no_plan);  #imports testing tools
use MyModule;                #that's your code

my $mech = WWW::Mechanize->new( autocheck => 1 );

#call repeatedly with various values of $start, $regex
# is_deeply compares data structures element by element
# is_deeply($got, $expected, $description_of_test)

my $start = "http://www.domain.com";
my $regex = qr/\d+.+\.pdf$/;
my $aExpected = [ 'foo.pdf', 'baz.pdf' ]; 
is_deeply(getAllLinks($mech, $start, $regex), $aExpected
          , "getAllLinks: start=$start, regex=$regex");

#call repeatedly with various urls
# is compares simple scalars
# is($got, $expected, $description_of_test)
is(getByteCount($mech, $url), $iExpected
   , "getByteCount: url=$url");