Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my @files = <*.*>;

map { print "FOUND: $_\n"; } @files;

FOUND: Liquid Soul - 03 - Salt Peanuts-Chocolate Covered Nut.mp3
FOUND: Liquid Soul - 10 - No Cents.mp3
FOUND: Ronny Jordan  feat Mos Def - A Brighter Day (remix).mp3