#!/usr/bin/perl
my $url = "http://www.bitchx.com/script/";
my $file = "";
open (FILE, "< scripts.html");
while (<FILE>) {
   $file = $_;
   if (m/info\.php\?n=(.+)/) {
      $file =~ m/info\.php\?n=(.+)/;
      print "Downloading: ".$url.$1."\n";
      $url = $url.$1;
      #print $url."\n";
      system ("wget $url");
      $url = "http://www.bitchx.com/script/";
   }
}
close (FILE);