sub readsock { my $sock = shift; read($sock,$rawdata,222) or die("Failed reading socket"); @data = split(" ",$rawdata) or die("Failed to separate data for processing"); return @data; } sub getfile { my $sock = shift; open(reqfile, $sock); @reqfile = ; return @reqfile; } sub nofile { my $sock = shift; @dirlist = glob("*"); print $sock "Perl HTTP Server :: "; print $sock @conf[0]; print $sock "

No index file, listing dir...



"; foreach $dirs (@dirlist) { print $sock "". $dirs ."
"; } print $sock "

Perl HTTP Serv. V1a\r\n"; } 1;