open(PS, "ejbreg.pl |") || die "Can't open script";

    print "<DIV>";

    while ($line=<PS>)
    {
        if($line=~/.*\n$/)
        {   
            print "$line<BR>\n";
        }
        else
        {
            print "$line";
        } 
        print "";                      
    }
    print "</DIV>";        
    close(PS);