#!/usr/bin/perl

print "Content-type: text/html\n\n";

# Recursively load packages from the given directory

my $dir = "/opt/music";

my @files;
my $f;

use File::Find;

find sub {
  $f = $File::Find::name;
  $f =~ s/^\.\///;
  if($f =~ /\.mp3$/)
  {
    push @files, $f;
  }
},$dir;

foreach $f (@files)
{
  $f =~ s/^$dir(.*)/\1/;
  $f =~ s/\ /\%20/g;
  print "http://awwaiid:Web42\@134.114.183.105/music$f\n";
}