my $command = "host -v www.perlmonks.org 2>&1 |";
    
    my $buff;

    if ( open( CMD, $command ) ) {
        while (<CMD>) {
            $buff .= "$_";
        }
        close(CMD);
    }
    
    # do some parsing with $buff etc.
    
    # print $buff
    print "Output:\n$buff";