Mini Perl/CGI chat

[nom]

da ich ein TOTALER bin in Perl und meinem kumpel zeigen wollte das ich trotzdem etwas auf die beine stellen kann wollte ich einen mini Perl chat programmieren.
Klappt fast alles:

message.pl:

#!/usr/bin/perl

print "\n\nNickname: ";
chomp ($nick=<STDIN>);
message:
open(file, ">>chat.txt");
print "\nMessage: ";
chomp ($message=<STDIN>);
print file "$nick: $message\n";
close (file);
goto message
# made by nom (C) Backyard-Source Crew
# Contact: nom@backyard-source.net
# http://Backyard-Source.net

chat.pl

#!usr/bin/perl

chat:
open(file, "<chat.txt");
@chat = <file>;
print @chat;

close (file);
sleep 5;
goto chat;

# made by nom (C) Backyard-Source Crew
# Contact: nom@backyard-source.net
# http://Backyard-Source.net

So meine Probleme sind nun:
1. wie bekomme ich es hin das bei der message.pl nicht die Ausgabe:

Nickname: ***

Messgae: Hallo

Message: ...

und so kommt sondern:

Nickname: ***

Message: blablabla

und das blablabla dann wieder verschwindet und ich das "Message:" immernoch dastehen habe und wieder eine Nachricht tippen kann.

2.
zeigt die chat.pl das an
nom: hi
nom: wie gehts?
dann kommt die 5 sek warte zeit und danach steht sowas da
nom: hi
nom: wie gehts?
nom: hi
nom: wie gehts?
P!k4: gut

wie kann ich also machen, dass er die letzte Ausgabe mit der neuen vergleicht und nur das Neue ausgibt.

mfg
nom

 

[nom]

bitte ich brauch hilfe