Select Code to Download

use IO::Socket;
use IO::Interface qw(:flags);
...
    print "is noarp\n"       if $flags & IFF_NOARP;
}