Select Code to Download

use strict;
use warnings;
...
my $page = get($url);

my $p = HTML::TokeParser->new(\$page) || die "problem:  $!\n";

use strict;
use warnings;
...
  }
  else {return 0;}
}

use strict;
my $file;
...
  $file = <FH>;
}
close(FH);

use strict;

...
    print "\n";
  }
}