#!/usr/bin/perl print "Content-Type: text/html\n\n"; my @filename = split("\n", `ls items`); print < HTML