perl script with iptables, problem

Davut Topcan bocuhk at gmail.com
Tue Oct 14 09:18:28 BST 2008


Hi folks,

I downloaded a perl script, but I can't run... because I got an error
message , the message is below;

linux-oo0m:/media/DAVUT/Projects/Odakk/QUEUE/countertrace-1.0 #
./example-startup-script.sh
*Can't locate IPTables/IPv4/IPQueue.pm *in @INC (@INC contains:
/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi /usr/lib/perl5/5.10.0
/usr/lib/perl5/site_perl/5.10.0/x86_64-linux-thread-multi
/usr/lib/perl5/site_perl/5.10.0
/usr/lib/perl5/vendor_perl/5.10.0/x86_64-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.10.0 /usr/lib/perl5/vendor_perl .) at
./countertrace line 16.
BEGIN failed--compilation aborted at ./countertrace line 16.

Script;
-----------------------
#!/usr/bin/perl
# vim:set ts=4 sw=4 nocindent ai:
#
# countertrace, a traceroute faker
# (c) Copyright  2002 Michael C. Toren <mct at toren.net>
#
# Released under the terms of the GNU General Public Liense, version 2.
# Alternate licensing may be available if you have a specific need;
# please send mail to mct at toren.net with details describing you unique
# situation.
#
# Updates are available from http://michael.toren.net/code/countertrace/

use strict;
use warnings;
*use IPTables::IPv4::IPQueue qw(:constants);*
use NetPacket::IP qw(:ALL);
use NetPacket::ICMP qw(:ALL);
use NetPacket::UDP qw(:ALL);
use NetPacket::TCP qw(:ALL);
use Net::RawSock; #
http://www.hsc.fr/ressources/outils/rawsock/index.html.en
use Time::HiRes qw(gettimeofday);
---------------------------------------------------------------------------------------------------------------------

I have loaded perl IPv4 module on linux.. but nothing change..

anyone help me?

-- 
Davut Topcan
Software Developer & Consultant
Web: http://www.kapshon.com


More information about the london.pm mailing list