One way to do it would be:

#! /usr/bin/perl -w

use strict;

open MSG, "|/usr/bin/wall" or die "Failed to open pipe to wall";
print MSG "This is message 1.\n";
print MSG "This is message 2.\n";
close MSG;
[download]

Also check the 'wall' man page for more info.

-Nitrox