22. itunes.pl
sub list {
my $script = <<"SCRIPT";
tell application "iTunes"
set cPlaylist to current playlist
set resultString to ""
repeat with i from 1 to count of tracks in cPlaylist
set sName to name of track i in cPlaylist
set sArtist to artist of track i in cPlaylist
set sTime to time of track i in cPlaylist
set resultString to resultString & sName & "t" &
sArtist & "t" & sTime & "n"
end repeat
return resultString
end tell
SCRIPT