my $prog = new IO::File "| $ldapadd -x 2>&1"
    or die "Unable to open $ldapadd: $!";

##</code><code>##

my $prog = new IO::File "| $ldapadd -x 2>&1 |"
    or die "Unable to open $ldapadd: $!";