#!/usr/bin/perl

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

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

my $file_data_from_cd;

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

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