use IPC::Run3;
run3 [ 'ipinfo.pl', $_, ], undef, $output, $output;