The above link is helpful, thanks. Should have searched first :/

The below code will trigger some ideas.

HTTP::Daemon - http://search.cpan.org/~gaas/libwww-perl-5.837/lib/HTTP/Daemon.pm

#!/usr/bin/perl

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

my $d = HTTP::Daemon->new(
           LocalAddr => 'hostname',
           LocalPort => 8090,
       );


#$d = HTTP::Daemon->new || die;
print "Please contact me at: <URL:", $d->url, ">\n";
while (my $c = $d->accept) {
     while (my $r = $c->get_request) {
         if ($r->method eq 'GET') {
             my $pathvar = $r->uri->path();
             @exact_path = split("/",$pathvar);
             $c->send_file_response(@exact_path[1]);
         }
         else {
             $c->send_error(RC_FORBIDDEN)
         }
     }
     $c->close;
     undef($c);
}
[download]

Regards,
Vivek

Why does it have to be a 'Oneliner'? Do you have an existing web server or are you looking for something like HTTP::Server::Simple?

 plackup -MPlack::App::Directory -e 'Plack::App::Directory->new->to_ap
+p'
[download]

http_this

Written 3 months earlier than the question, it's just a wrapper around the Plack::App::Directory which was suggested earlier, but it's simpler, like the python command in a book on D3 that sent me looking for the perl equivalent of python -m SimpleHTTPServer