use strict;
use Net::DHCPClient;

my $mac_address = `ifconfig |grep HW |cut -d: -f2-7|cut -dr -f3 |cut -d' ' -f2`;  # get the MAC address

my $dhcp = new Net::DHCPClient (
                                maccaddr => $mac_address,
                                interface => 'eth0',
                               );

$dhcp->discover(61 => $mac_address);
$dhcp->request;
$dhcp->release;