#!/usr/bin/perl

use strict;
use warnings;
use Net::Frame::Simple;
use Net::Frame::Layer::ICMPv6::Echo;

my $echo = Net::Frame::Layer::ICMPv6::Echo->new(
           'payload' => 'echo');
my $echoReq = Net::Frame::Simple->new(
              'layers' => [$echo]);              
print $echoReq->print."\n";