#!/usr/bin/perl

use HTTP::Daemon;
use HTTP::Status;

my $d = new HTTP::Daemon
LocalPort => 1285;

print "Connected as: ", $d->url, "\n";

while (my $c = $d->accept) {

while (my $r = $c->get_request) {

if ($r->method eq 'GET') {

$url = $r->url->path;

$length = length($url);
$substract = $length - 1;
$file = substr($url, -$substract);

$c->send_file_response($file);

} else {

$c->send_error(RC_FORBIDDEN)
}

}

$c->close;

undef($c);

}