use DB_File;
use Storable qw(freeze);
+use Getopt::Long;
+
my $OUTDIR=q(/home/don/records/tweekin);
+my %options = (skip => 1);
+GetOptions(\%options,'skip|s!','debug|d+','help|h|?','man|m');
+
+
+
my $DATE=strftime(q(%Y_%m_%d),localtime(time));
my %tw_db;
s/\s*$//s;
$_;
} split m#</td>\s*<td[^>]*>#, $entry;
- next if exists $tw_db{$entry{catnum}};
+ next if (exists $tw_db{$entry{catnum}} and $options{skip});
push @files_to_get, $entry{mp3};
$entry{mp3} = qq(tweekin_$DATE/).basename($entry{mp3});
$tw_db{$entry{catnum}} = freeze({%entry});