use strict;
use warnings;
use 5.010;
use Time::HiRes qw(time);

my $data = 'x' x 500_000_000;
my $t    = time;
unless (fork) {
    $data =~ tr/x/y/;
    exit;
}
wait;
say time - $t;
__END__
0.765344142913818