#! /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;