Select Code to Download

Select or download this

   ## increment the sequencer.
    $HoA{sequence} = 0 unless exists $HoA{sequence};
...
    print ("HoA test $i: " .   $HoA{test}[2]  ."\n" );
    print ("HoA test $i: @{ $HoA{test} } \n" );        # returns list
    print ("HoA test $i: " .  @{ $HoA{test} } ."\n" ); # returns count

Select or download this

sub write_guestbook {
    unless (TieLock($GUESTBOOKFILE, 1)) {
...
    unTieLock($GUESTBOOKFILE);
    return ($guestbook);
}