#
open my $READ, "-|",  "./dialog.pl";
while (<$READ>)
        {
                print $_;
        }
close $READ;