use Net::Frame::Dump::Writer;

   my $oDump = Net::Frame::Dump::Writer->new(
      file       => 'new-file.pcap',
      firstLayer => 'ETH',
   );

   $oDump->start;

   $oDump->write({ timestamp => '10.10', raw => ('A' x 14) });
   $oDump->write({ timestamp => '10.10', raw => ('A' x 14) });
   $oDump->write({ timestamp => '10.10', raw => ('A' x 14) });
   $oDump->write({ timestamp => '10.10', raw => ('A' x 14) });
   $oDump->write({ timestamp => '10.10', raw => ('A' x 14) });
   $oDump->write({ timestamp => '10.10', raw => ('A' x 14) });
   $oDump->write({ timestamp => '10.10', raw => ('A' x 14) });
   $oDump->write({ timestamp => '10.10', raw => ('A' x 14) });
   $oDump->write({ timestamp => '10.10', raw => ('A' x 14) });
   $oDump->write({ timestamp => '10.10', raw => ('A' x 14) });
   $oDump->write({ timestamp => '10.10', raw => ('A' x 14) });
   $oDump->write({ timestamp => '10.10', raw => ('A' x 14) });
   $oDump->write({ timestamp => '10.10', raw => ('A' x 14) });
   $oDump->write({ timestamp => '10.10', raw => ('A' x 14) });

   $oDump->stop;