@files = glob("*.mp3");

##</code><code>##

while (glob("*")) {
  if ( ! ( $_ =~ /^\./ ) ) {
    if ( -f $_ ) {
      #process files in this directory.
    } elsif ( -d $_ ) {
      #process a directory possibly with a recursive call
    }
  }
}