# The loop for ripping
do {
   system("eject -t $device");
   ripping($title, $device);
}while(! prompt4("Hit Enter to continue, or q to quit. "));


__END__

=head1 NAME

BookOnCD.pl - BooksOnCD to MP3

=head1 DATE

Most recently modified on ... (CVS could do this for you, BTW)

=head1 DESCRIPTION

This script will rip BooksOnCD to an MP3 format
that is readable by today's popular MP3 CD players.

=head1 SUBROUTINES

=over 4

=item B<prompt>

   $boolean = prompt($scalar);

Verifies that the user typed some form of 'yes'


=item B<ripIt>

   ripIt($directory,$device,$title,$disc,$tracks,$tracks);

This is the "Magic" function that rips the MP3's
from the CD and orders them.

=back

=head1 AUTHOR

atbitkin

=cut