open (MP3, ">c:\\perltest\\mp3log.txt");
recurse(\&Locate_MP3, "c:\\ ");
close (MP3);

sub Locate_MP3   # Recurses directory structure, 
#locates matching files, and deletes them(print to log #first, unlink later after review).
   {
    	if ( -f $_  ) {
          if ( $_ =~ /\.mp3$/i ) {
          #   unlink ("$_") 
          }
      }
} 


print MP3 “$_ matches deletion criteria.\n”;



# This was my first attempt at an array to do the same 
# thing.  Only problem....only works on current directory.
#open (MP3, ">c:\\perltest\\mp3test.txt");
#$timenow = time;
#@mp3list = <c:\\perltest\\*.mp3>;
#print MP3 "@mp3list\n";
#close (MP3);