system('mount /cdrom') and die $!;
my $anzahl = my @files = glob "/cdrom/*.wav";
# Edit: ungetestet!!