...
# creating objects
my $ethernet = NetPacket::Ethernet->decode();
my $ip = NetPacket::IP->decode();

# creating the packet
my $packet = $ethernet->encode() . $ip->encode();

# creating the trailer
if (length($packet) < 60)
	{
		???
	}