Select Code to Download

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

    @songs = readdir(SONGS);
    @songs = sort @songs;

    $x = $y;
    $x = $z + $x;