Select Code to Download

threadn {
    eval {
...
    @input = qx[ tcpdump;
    return @input;
}

sub ping {
    my $dns_name = shift;
...
    m/PING (.*).et.byu.edu/ and return $1 while <$cmd>;
    return;
}