#!/usr/bin/perl -w

print "Please input the number of titles to rip: ";
$count = <STDIN>;
if (!defined $count) {die "I don't understand that answer.";}
chomp $count;

# rip
print "****************************************\n";
print "* Ripping $count Titles\n";
print "****************************************\n";

for (1..$count) {
	print "================\n";
	print "Ripping title $_\n";
	$rip = "mencoder dvd://$_ -ovc copy -oac copy -o title$_.avi";
	print $rip . "\n";
	system $rip;
	print "\n\n";
}
system "eject";