POSTIT.PL 

#!/usr/local/bin/perl 

my $nam = param ('name'); 
my $srn = param ('surname'); 
my $sex = param ('sex'); 
my $age = param ('age'); 

open (LOG, ">>messages.txt"); 
print LOG "$nam $srn $sex $age"; 
close LOG;