Select Code to Download

#!/usr/bin/perl -wT

use strict;
...
my @songs = sort grep { /\.mp3$/ } readdir SONGS;

closedir SONGS;