#!/usr/bin/perl -w
use Net::Pcap;
use NetPacket::Ethernet;
use strict;
my $err;
my $dev = "wlan0";
my $object;
$object = Net::Pcap::open_live($dev, 2048, 0, 0, \$err);
Net::Pcap::loop($object, -1, \&syn_packets, '') || die 'Unable to perform packet capture';
Net::Pcap::close($object);
sub syn_packets {
        my ($user_data, $header, $packet) = @_;
        my $eth_obj = NetPacket::Ethernet->decode($packet);
        print("$eth_obj->{src_mac} : $eth_obj->{dest_mac}\n");
                }