#!/usr/bin/perl -w
use strict;
use File::Find::Rule;

# Change this next line to reflect your mp3 directory
my @dirs_only = File::Find::Rule->directory()->in('/steeler/mp3');

foreach( @dirs_only ) {
  my $dir = $_;
  chdir( "$dir" );
  chomp( my @files = `ls` );
  my $files = `ls`;
  if (( $files =~ /\.mp3$/ ) or ( $files =~ /\.MP3$/ )) {
    my $current_dir = `pwd`;
    my $basename = `basename \"$current_dir\"`;
    $basename =~ s/\s//g;
    $basename =~ s/'//g;
    $basename =~ s/\.//g;
    my $m3u_file = "$basename".'.m3u';
    print "Creating m3u file: $m3u_file\n";
    open M3U, ">$m3u_file";
    foreach( @files ){
      print M3U "$_\n";
    }
    close M3U;
  }
}