perl -MHTTP::Daemon -E '$d=HTTP::Daemon->new(LocalPort=>$ARGV[0]||8000);say$d->url;while(my$c=$d->accept){while(my$r=$c->get_request){$c->send_file_response(".",$r->url->path)}}'

##</code><code>##

package HTTP::here;

use strict;
use warnings
use Exporter qw( import );
use Whatever::Webserver::you::like;

our @EXPORT=qw( serve );

sub serve
{
    my $port=shift;
    $port||=8080;
    Whatever::Webserver::you::like->new(port => $port)->run();
}

1;