# creating the packet chunks
my $packet_eth = $ethernet->encode();
my $packet_ip  = $ip->encode();
my $packet = $packet_eth 
   . (pack 'H*', ('00' x (60 - length($packet_eth) - length($packet_ip)))) # Note 0 -> 00
   . $packet_ip;