Select Code to Download

#!/usr/bin/perl

use strict; 
...
                print "\t\t", $track->songid->name,"\n";
        }
}

#!/usr/bin/perl -w
use strict;
...

print "\n\nFinished.\n\n";
exit;