# ex_11-3
# Learning Perl on Win32 Systems, Exercise 11.3

$file = shift || die "usage: $0 filename";
open(F, $file) || die "open: $!";
while (<F>) {
  ($user, $company, $email) = split /:/;
  write;
}

format STDOUT =
@<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<
$user,          $company,                $email
.

# append to program from the first problem...
format STDOUT_TOP =
Page @<<<
$%

User            Company                  Real Name
==============  =======================  =================
.