#!/usr/bin/perl -w
use strict;

my @messagesIn;
my $MAXSAVE = 12;

my $name = "Duane Wade";
my $subject = "My Career";
my $message = "No one ever thought I'd be this good.";

flock("messageTest.txt",2);
open(FROMFILE,"<messageTest.txt");
while (<FROMFILE>)
{
	chomp $_;
	push (@messagesIn, $_);
}

while (@messagesIn > $MAXSAVE)
{
	pop (@messagesIn);
}

close(FROMFILE);
flock("messageTest.txt",8);

open (TOFILE,">>messageTest.txt");
flock("messageTest.txt",2);
seek(TOFILE,0,0);

print TOFILE "$name|$subject|$message\n";

my $counter = 0;
while ( $counter < @messagesIn )
{
	print TOFILE "$messagesIn[$counter]\n";
	$counter++;
}

truncate(TOFILE, tell(TOFILE));
flock("messageTest.txt",8);
close (TOFILE);

1;