my $hostname = (split /\./, $fqdn, 2)[0];