use strict;
use Net::Domain;
my $rc=system("/bin/ls");
print rc, "\n";