use Mac::Knife;

my $knife = new Mac::Knife(
                            DestDir => './music/mp3s',
                            Source => '/dev/cdrom'
                          );
$knife->cut;  # Check it out.  Another pun!  :-)
[download]

--J