"subs" is not defined in %Net::Frame::Layer::EXPORT_TAGS at /usr/local/share/perl/5.10.0/Net/Frame/Layer.pm line 8
Can't continue after import errors at /usr/local/share/perl/5.10.0/Net/Frame/Layer/IPv4.pm line 8
BEGIN failed--compilation aborted at /usr/local/share/perl/5.10.0/Net/Frame/Layer/IPv4.pm line 8.
use Net::Frame::Layer::IPv4;
use Net::Frame::Layer::TCP;
use Net::Frame::Simple;
my $ip = Net::Frame::Layer::IPv4->new(src=> '192.168.95.2',dst=> '192.168.95.1',);
my $tcp = Net::Frame::Layer::TCP->new( dst => '21',data=>'test',);
my $simple = Net::Frame::Simple->new( layers=>[$ip,$tcp],);
use Net::Write::Layer3;
use Net::Frame::Dump::Online;
my $oWrite = Net::Write::Layer3->new(dst => '192.168.95.1');
$oWrite->open;
$simple->send($oWrite);
$oWrite->close;