my $fh = FileHandle->new($file) or die "cannot read open $file";
my $row = <$fh>;
print "|$row|\n";

##</code><code>##

| !D A I L Y   R E P O R T
|