Select Code to Download

require "ioctl.ph";
use Fcntl;
...
sysopen ETHER, "/dev/your-ethernet-device", O_RDONLY;
# You'll need to pack the address into $addr.
ioctl ETHER, &SIOCSIFHWADDR, $addr;