$ip = '7F000001';

use Socket;
inet_ntoa( pack( "N", hex( $ip ) ) )