Select Code to Download

$path = "C:\\songs\\";
chdir $path;
...
for $filename ( @list ) {
print "$filename\n";
}