sub ping {
    my $dns_name = shift;
    open my $cmd, "ping -c 15 -i 1 $dns_name" or die;
    m/PING (.*).et.byu.edu/ and return $1 while <$cmd>;
    return;
}