#!/usr/bin/perl

 my $dest = shift;
 my $cmd = "ping -c 1 $dest";

    @output = `$cmd`;
    print "\n$cmd\n\n";
    print "\n@output\n";