Select Code to Download

#!perl

...
use LWP ();
use Date::Manip::Date ();
use Sys::Hostname ();

use XML::Twig ();
use Time::HiRes ();

...
    $keepd{$dirs} = 1;
    push @mkdir, $dir;

    wrlog "getting directory " . $edir;
    my $resp = $LWP->get($baseurl . $edir);
...
                my $isdir = $n =~ s"\/+\z"";
                my $abs = $dir . $n;
                my $eabs = escape($abs);

                if ($n =~ m"[\/\0]") {
                    wrlog "skipping that href for illegal characters i
+n name " . $eabs;
...
    $DATE->new_date("now")->printf("%O %Z") . ".";

__END__