#! /usr/pkg/bin/perl

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