#!/usr/local/bin/perl use CGI ':cgi-lib'; print CGI->header; print<<__EOQ__; remember amber

remember amber

kirk israel

__EOQ__ open(READ,"data.tab"); $count = 0; $buf = ""; while(defined($line=)){ chomp $line; if($line =~ /\t/){ ($img,$text) = split(/\t/,$line); $buf .= <<__EOQ__; __EOQ__ $count++; if($count >= 2){ printRow($buf); $buf = ""; $count = 0; } } } if($count > 0){ printRow($buf); } sub printRow{ my($buf) = @_; print "$buf"; } print<<__EOQ__;

$text
__EOQ__