#!/usr/bin/perl

use strict;

my $dir = '/home/music';
my @mp3 = getSongs($dir);

foreach my $song (@mp3) {
        print "$song\n";
}

sub getSongs {
        my $dir = @_;
        use Carp;
        my @files;
        if (-d $dir) {
                opendir(MP3, $dir) || croak("Cannot open directory: $dir");
                @files = readdir(MP3);
                closedir(MP3);
        }
return @files;
}



##</code><code>##

use strict;
use CGI;