壺から。

ほい。細かいところは自分で書いてね。
my(%pm, $ua, $request) = ();
・・・
$pm{'srv'} = $ENV{'SERVER_NAME'};
・・・
$request = $ua -> post($host, \%pm);