Generating a link-local address from a MAC address in Perl

A code snippet for generating an IPv6 link-local address from a MAC address