$ strace ./746953.pl
(...)
brk(0x66a000)                           = 0x66a000
read(4, "#!/usr/bin/perl\n\nsub ps {\n    #s"..., 8192) = 1003
fcntl(4, F_SETFD, FD_CLOEXEC)           = 0
write(1, "---\n", 4---
)                    = 4
mmap(NULL, 2002944, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_ANONYMOUS, -1, 0) = 0x2ba8bbdd5000
mmap(NULL, 2002944, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_ANONYMOUS, -1, 0) = 0x2ba8bbfbe000
write(1, "---\n", 4---
)                    = 4
munmap(0x2ba8bbfbe000, 2002944)         = 0
write(1, "---\n", 4---
)                    = 4
lseek(4, 196, SEEK_SET)                 = 196
lseek(4, 0, SEEK_CUR)                   = 196
close(4)                                = 0
exit_group(0)