---- HTML Page ----
---- perl code --- #!/usr/bin/perl use CGI; use JSON; use strict; my $out; for(my $i=0;i<=8;i++) { push @$out, $i if -e "6/$i.jpg"; } print "Content-type: text/html\n\n"; print objToJSON($out);