#!/usr/bin/env perl
use HTTP::Daemon;
my $port = $ARGV[0] || 8000;
my $d = HTTP::Daemon->new(LocalPort => $port) or die $!;
print "SimpleHTTPServer.pl listening at: ", $d->url, "\n";
while (my $c = $d->accept) { 
	while (my $r = $c->get_request) {
		$c->send_file_response(".".$r->url->path);
	}
}