system("osascript", "-e",
"tell application \"BBEdit\"
	tell the text of the window \"thesource.pl\"
		select insertion point before line $line
	end tell
end tell");