Print curl command from Mojo::UserAgent requests

dummy.pl

use Mojo::Base -base;
use Mojo::UserAgent;

my $ua = Mojo::UserAgent->new;

$ua->on(start => sub {
  my ($ua, $tx) = @_;
  my $h = $tx->req->headers->to_hash;
  my @curl = ('curl');

  for my $k (keys %$h) {
    next if $k =~ /User-Agent/i;
    push @curl, "-H" => qq("$k: $h->{$k}");
  }

  if (my $body = $tx->req->body) {
    $body =~ s!\n!\\n!g;
    push @curl, "-d" => qq("$body");
  }

  say join ' ', @curl, $tx->req->url->to_abs;
});

$ua->get("http://example.com");
$ua->post("http://example.com", "too cool for school");