Making your own TCP traceroute shouldn't be too difficult, but I think you'll need to muck with Raw IP to be able to set the TTL. The code for this looks kinda like this:

my $maxTTL = 25;   # Don't go more than 25 hops

for my $ttl ( 1 .. $maxTTL) {
    # send_packet() returns (1, "Success") if the 
    # target host was reached or (0, [name of host]) if 
    # the host was not reached, where [name of host] is the 
    # name of the last host in the chain.
    # 
    my ($result, $host) = send_packet( ttl => $ttl );

    last if $result;

    print "$ttl \t $host \n";
}
[download]

----
Reinvent a rounder wheel.

Note: All code is untested, unless otherwise stated