open( DNS, "ping -l o -n 1 $host >nil|" ) || die $!;
# or
open DNS, "ping -l o -n 1 $host >nil|" or die $!;