for ($message,$user,tty) { s/'/'\\''/g; }
system("echo '$message' |/usr/bin/write '$user' '$tty'");