getzippy.pl usage example

#!/usr/bin/perl -w
use strict;

system("rm -rf ./index.html*");
system("wget http://muzeno.pl");
open(IN,"<index.html");
my @zippyurls;

foreach(<IN>) {
        if($_ =~ /a\shref=\"(.+file\.html)?\"\s/) {
                push(@zippyurls, $1);
        }
}
close(IN);

foreach(@zippyurls) {
        system("./getzippy.pl $_");
}

system("rm -rf ./index.html*");