#!/usr/bin/env perl

my $go=1;

if (!@ARGV)
{
  print "No arguments given, assuming /dev/cdrom.\n";
  push @ARGV, "/dev/cdrom";
}

while ($go)
{
  $go = 0;
  system("copycds @ARGV");
  print "Would you like to copy another CD (y/N)? ";
  if (<STDIN> =~ /^y/i)
  {
    $go = 1;
    system("eject");
    print "Replace the CD and press enter.";
    <STDIN>;
  }
}

# vim: set ts=2 sts=2 sw=2 et ai :