one.

two.
three.
four.

##</code><code>##

my $messagebody = "message.txt";
open(messagebody, $messagebody) || Error ('open', 'file');
flock (messagebody, 2) || Error ('lock', 'file');

my @messagebody = <messagebody>;

print @messagebody;

sub Error {
  print "The server can't $_[0] the $_[1]: $! \n";
  exit;
}

##</code><code>##

one.

 two.
 three.
 four.