#!/usr/bin/env perl6

use HTTP::Tinyish;

sub MAIN(Int $port) {
    my $resp = HTTP::Tinyish.new.post("http://127.0.0.1:$port/",
        headers => { 
                    'content-type' => 'application/x-www-form-urlencoded'
        },
        content => 'foo=bar');

    say $resp<content>;
}
