It's pretty easy:

print $ethlayer->dst;
print $ethlayer->src;
[download]

I use the Net::Frame library and it is by far the best (IMHO) packet library. I got Net::Pcap running on Windows (Re: Net::Pcap installation help (and not with the library)) and was able to write a packet crafting shell for Windows:

http://www.vinsworld.com/software/ppc.html

http://www.vinsworld.com/software/ppc.zip