IP Address with DHCP

[Timothy A. Canon]

I am connected to the internet via a DHCP server.  How can I get 
my IP address in a perl script?  Is there a function or module I 
can use or will I have to use a system command?

Thanks,

Tim Canon