#!/usr/bin/perl  
    use strict;  
    use Socket;  
    use Data::Dumper;  
    require("syscall.ph");
    
    my $srv;
    socket($srv, PF_INET, SOCK_DGRAM, getprotobyname('udp'));
    bind ($srv, sockaddr_in('777', INADDR_ANY)) or die $!;
    
    my $msg = "\0" x 1500;
    syscall(&SYS_recvmmsg, $srv, $msg, 1500,0,0) == 0 or die $!;
    print Dumper $msg;