sub call_cmd{

my $host = shift;
my $cmd = shift;
my $command = $cmd;
my $message;

open( DIR, "$cmd|" ) || die "No cmd: $cmd $!";
while(<DIR>){

    $message.=$_;
    print "\n $host $message \n";

    close DIR;
}


print "I'm here";
}