#!/usr/bin/perl -l

use strict;
use warnings;


warn "pid: $$\n";

sleep(100);

my $a = 'abcd' x 2_000_000;

my $b = ff($a) for 1..20000;

warn "done; sleeping\n";
sleep(100);

sub ff {
    my ($foo) = @_;
    sleep(.05);
    $foo;
}