Help for this page
open (OSASCRIPT , '| osascript -'); print OSASCRIPT <<OSASCRIPT; ... end tell OSASCRIPT close OSASCRIPT;