my $dwfssh = "/usr/bin/sudo -u netcool /usr/bin/ssh -t user1\@servername";

#Ping Route Section
print "<p class=\"systemMsg\">Pinging $msg1 from Orlando </p>";
#open(PINGORF,"$dfwssh '/bin/ping -c 5 -q ".$test1."'|");
open(PINGORF,"/bin/ping -c 3 ".$test1."|");
        $old_fh = select(STDOUT);
        $| = 1;
        select($old_fh);

        print "<PRE><p class=\"results\">";
        while(<PINGORF>) {
                print;
        }
        print "</p></PRE>";

print "<p class=\"systemMsg\">Pinging $msg1 from Dallas </p>";

#open(PINGDWF,"$dfwssh '/bin/ping -c 5 -q ".$test1."'|");
$cmd1 = "/usr/bin/sudo -u 'user1 echo "Darn thing wont workr"'";
open(PINGDWF,"$cmd1");
        #open(PING,"/bin/ping -c 10 ".$test1."|");
        $old_fh = select(STDOUT);
        $| = 1;
        select($old_fh);

        print "<PRE><p class=\"results\">";
        while(<PINGDWF>) {
                print;
        }
        print "</PRE></p>";