Select Code to Download

#!/usr/bin/perl

use threads;
...
        print "\nUnable to ping to Host: $host\n";
    }
}

use Config::General;
use Tie::IxHash;
...
}

1;

perl some.pl 

...

Logged in to 192.168.0.19
Segmentation fault