opendir (SONGS, $song_dir);
    @songs = sort grep { !/^\.\.?$/ } readdir(SONGS);
    closedir (SONGS);