Select Code to Download

use warnings;

$runcount = 0;
...
    print STDERR "Good opens $runcount\n";
    die;
}

    $res = `IPCONFIG`;
    fatal("Call failed") if (!defined $res);    
    $runcount++;
    ($ipaddr) = ($res =~ /(\d+.\d+.\d+.\d+)/);