The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

tell application "iTunes"
	copy (a reference to (get view of front window)) to thePlaylist
	return name of thePlaylist
end tell