tell application "MacPerl"
	Do Script "&MacPerl'Reply(join(\", \", stat(\"MacPerl\")))"
end tell
.