Select Code to Download

if ($_ =~ /\.txt/){
        chomp $_;
...
        $length{$artist}{$song_title} = $song_title;
    print "$_"; # print this file/directory's name

open FH, "<$_" or die $!;
    print "output for file: $_\n";
...
        $length{$artist}{genre} = $genre;
        print $album, "\n";
        }