Most of the work has been done for you I would suggest using Net::Traceroute which should do what you need or just seach through CPAN and I am sure there are many others out there.