Select Code to Download

#!/usr/bin/perl 
# program which send data from eth0 to lo
...
    send(RAW,$ifaceid.$_[2],0,$flags) || die "Send :$!\n";    

}

#!/usr/bin/perl 
# This one sends packet from eth1 to lo
...
        #I add interface id to packe to identify source interface
    send(RAW,$ifaceid.$_[2],0,$flags) || die "Send :$!\n";    
}

#!/usr/bin/perl 

...
    return;
}