#!/usr/bin/perl

use strict;
use warnings;
use File::Find;

my $path_to_cd='/media/cd0/';

my $file_data_from_cd;

find(sub{ $file_data_from_cd.=do{ local ( @ARGV,$/ ) = $File::Find::name; <> }; },$path_to_cd);

## Tuh was mit den Daten in $file_data_from_cd ...