#!/sw/bin/perl -w
########################
# By: Ventz Petkov     #
# Date: 7-08-05        #
# Massive IPod Grabber #
########################
use strict;
use File::Find::Rule;
use File::Copy;

my ($rule, $file, $newfile, @newfile);
if (@ARGV != 2) {
    print "\t\tUsage: ./ipodgrab.pl ipod_name dump_directory\n";
    print "\t\tEx: ./ipodgrab.pl ventz /tmp\n"; exit();
}

$rule = File::Find::Rule->file->name("*.mp3")->start( "/Volumes/$ARGV[0]" );
while ( $newfile = $file = $rule->match ) {
    print "$file\n";
    @newfile = split("/", $newfile);
    copy($file, $ARGV[1]."/".@newfile[scalar(@newfile)-1]) or die "File cannot be copied.";
}