File:datafile

Tom:5:5:5/19/88
Jack:4:4:5/6/99
Peter:3:3:4/12/98

#!/bin/perl
open(DB, "datafile" ) || die "datafile: $!\n";
format STDOUT=
-----------------------
| EMPLOYEE INFORMATION |
-----------------------
Name: @<<<<<<<<<<<<
$name
-----------------------
Age: @##
$age
-----------------------
Salary: @#####.##
$salary
-----------------------
Date: @>>>>>>>>>>
$start

.
while(<DB>){
    ($name, $age, $salary, $start)=split(":");
     write ;
}