Help for this page

Select Code to Download


  1. or download this
           my $ua = init_lwp();
           my $uri = create_query2($url, $newdate);
           my $resp_dat = execute_query($ua, $uri);

           print $resp_dat;
  2. or download this
               my $ua = init_lwp();
           my $uri = create_query2($url, $newdate);
           my $resp_dat = execute_query($ua, $uri);
           subgen($resp_dat);
  3. or download this
    sub subgen {
        my($aref) = @_;
...
    close(GENFILE);
    close(INFOFILE);
}