maxaf

#!/usr/bin/perl
# -*- cperl -*-

use strict;
use HTTP::Proxy qw/:log/;
use Time::HiRes qw/time/;
use HTTP::Proxy::BodyFilter::save;
use File::Path qw/mkpath/;

my $dir = shift @ARGV || die "usage: $0 /path/to/music/dump";