open (INPUT, '<', $file) or die $!;
{
    local $/ = "";
    while ( <INPUT> ) {
        print '<p>', $_, '</p>';
    }
}