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; 

##</code><code>##

#!/usr/bin/perl 

open (LOG, "<messages.txt") 
while (<LOG>) { 
chomp; 
my @attributes = split /\|/; 
for my $attribute (@attributes) { 
print $attribute, "\n"; # or do whatever here 
} 
} 
close LOG;