diff -Nur Net-Traceroute-1.08/Traceroute.pm Net/Traceroute.pm
--- Net-Traceroute-1.08/Traceroute.pm	2004-05-24 21:55:06.000000000 +0200
+++ Net/Traceroute.pm	2004-08-09 19:17:38.000000000 +0200
@@ -103,6 +103,7 @@
        trace_program
        timeout
        no_fragment
+       icmp_echo
        );
 
 my @simple_instance_vars = (
@@ -433,6 +434,8 @@
 
     push(@result, "-F") if($self->no_fragment);
 
+		push(@result, "-I") if($self->icmp_echo);
+
     my($key, $flag);
     while(($key, $flag) = each %cmdline_map) {
 	my $val = $self->$key();
@@ -713,6 +716,7 @@
 				[packetlen	=> $packetlen,]
 				[trace_program	=> $program,]
 				[no_fragment	=> $nofrag,]);
+        [icmp_echo => $icmp_echo,]);
     $frob = $obj->clone([options]);
 
 This is the constructor for a new Net::Traceroute object.  If given
@@ -770,6 +774,8 @@
 B<no_fragment> - Set the IP don't fragment bit.  Some traceroute
 programs will perform path mtu discovery with this option.
 
+B<icmp_echo> - Use ICMP ECHO instead of UDP datagrams.
+
 =head1 METHODS
 
 =over 4