open DIR, $ScratchDir or die $!;
foreach my $file ( readdir(DIR) ) {
    print "$file\n";
}

##</code><code>##

~/cron $ ls -l ScratchDir
total 322944
-rw-r--r--  1 unamechanged  unamechanged  165347328 27 Aug 11:55 filenamechanged.mp3

##</code><code>##

~/cron $ uname -a
Darwin WRUV-Studio.local 7.9.0 Darwin Kernel Version 7.9.0: Wed Mar 30 20:11:17 PST 2005; root:xnu/xnu-517.12.7.obj~1/RELEASE_PPC  Power Macintosh powerpc