Select Code to Download

    foreach my $tmp_name (`dcop amarok playlist filenames`) {

...

        $tmp_idx++;
    }

$ perl -e'
    my @files = ( "egg_nogg.mp3\n", "egg_nogg\n", "stupid file.ogg.shn
+.flac.mp3\n", "stupid fileloggashnoflacamp3\n" );
...
$tmp_name = stupid fileloggashnoflacamp3
        =>      stupid file

    foreach my $tmp_name (`dcop amarok playlist filenames`) {

...
        $tmp_idx++;
    }