#!/usr/bin/perl -w

# phrack.pl - by dual
#
# Downloads Phrack from textfiles.com
#####################################

use strict;
use LWP::Simple;

# Declare
my $url = 'http://www.textfiles.com/magazines/PHRACK/ARCHIVES';
my @array = (1..65);

# Get issues 1 - 65
for my $scalar(@array) {
	my $ish = sprintf("%02d", $scalar);
	if ($ish eq 63 || $ish eq 64) {
		print ">>> Downloading phrack$ish.zip...\n";
		getstore("$url/phrack$ish.zip", "phrack$ish.zip");
	}
	else {
		print ">>> Downloading phrack$ish.tar.gz...\n";
		getstore("$url/phrack$ish.tar.gz", "phrack$ish.tar.gz");
	}
}

print ">>> Done!\n";