Select Code to Download

[id=0 @ 0] : IP address "3.3.3.3" corresponds to device "core". 
Thread 1 terminated abnormally: Not a CODE reference at ./dev_ithread.
+pl line 23.
[id=0 @ 1] : IP address "5.5.5.5" corresponds to device "border". 
Thread 2 terminated abnormally: Not a CODE reference at ./dev_ithread.
+pl line 23.

#!/usr/bin/perl

use    strict ;
...
    my $ithread = threads->tid() ;
    print "[id=$ithread @ $index] : IP address \"$ip\" corresponds to 
+device \"$device\". \n" ;
}