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

use Net::Libdnet::Ip;

my $h = Net::Libdnet::Ip->new;
$h->send('G'x60);