proclined_mojo.pl

#!/usr/bin/env perl
use strict;
use v5.10;
use Class::Load qw(load_class);
#use Mojo::UserAgent; # works when pre-loading

if ( my $pid = fork() ) {
  waitpid( $pid, 0 );
  say "Forked child($pid) exited with status $?";
}
else {
  $0 = "child child child";
  load_class('Mojo::UserAgent');
  my $ua = Mojo::UserAgent->new;
  say $ua->get('http://mojolicio.us/')->res->code;
}