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

An example which didn't pan out

    require "usr/include/sys/mman.ph";  # for &MAP_FIXED

    my $file = "/etc/motd";
    my $size = -s $file or die;

    open F, $file or die;
    my $addr = syscall(&SYS_mmap, 0, $size,
            &PROT_READ, &MAP_SHARED, fileno F, 0);

    die "$!\n" unless ($addr > 0);