perl -e "use strict; use IPC::Open2; local (*OUT,*IN); 
eval{ 
my $pid=open2(*OUT,*IN,\"gethosts\"); 
waitpid($pid,0);
}; 

while(<OUT>) { print "Floep: $_\n\";}"