Select Code to Download

#! /usr/bin/perl

use strict ;
...
# Close files
close $pidlist or die $! ;
print "\nDone!\n" ;

my $page = get "$pbase?page=$pcnt&pid=$pid" ;

my $url = "$pbase?page=$pcnt&pid=$pid";
my $content = get($url);