perl6 HTTP::UserAgent发送post

use HTTP::UserAgent;
my $ua = HTTP::UserAgent.new;
say 'All method:';
say $ua.^methods;
my %data = :cmd('whoami');
my $result = $ua.post('http://localhost/1.php', %data);
say $result.content;