#!/usr/bin/perl

require 'cgi_handlers.pl' ;
get_request();

html_header("my files");
print "args = $args{'me'}<br>\n";

if (!open(LIST, "ls -l")){
	die "Can;t run ls \n";
}

while (<LIST>){
print 
