Next Five Minute Lightning Talk: Perl's syscall Function #16            

mmap2

    my $addr = syscall(&SYS_mmap2, 0, $size,
            &PROT_READ, &MAP_SHARED, fileno F, 0);

    die "$!\n" unless ($addr > 0);
    print "It worked!\n";
    [mct@ellesmere ~]$ strace -o out ./mmap.pl
    It worked!

continued...