my $str= "\n"; foreach (@$ref){ my $N = selectNode $_; $str .= "\n"; } $str . "
" . linkNode($N) . "(last here " . parsetime(lasttime) . " (" . timesince($$NODE{lasttime}) . ")
;