#! /usr/pkg/bin/perl

while (<>) {
   print $_;
   print "<BR>";
   print "\n";
}