Select Code to Download

{print STDERR "1"; "x" x 2**20}
{print STDERR "2"; "x" x 2**20}
{print STDERR "3"; "x" x 2**20}

$ strace -e mmap,munmap,write ./903114.pl
...
...
munmap(0x7fe6d5d0e000, 1052672)         = 0
munmap(0x7fe6d5e0f000, 1052672)         = 0
munmap(0x7fe6d7315000, 1052672)         = 0

$ perl -MO=Concise,-exec ./903114.pl
...
...
12 <$> const[IV 1048576] s
13 <2> repeat[t9] vK/2          <---
...