or download this
C:\>perl a:\oraexp.pl
Prototype mismatch: sub Socket::IPPROTO_TCP () vs none at
...
syntax error at a:\oraexp.pl line 56, near "'\\exp ' $CONNECTUSER "
syntax error at a:\oraexp.pl line 57, near "'\\exp ' $CONNECTUSER "
Execution of a:\oraexp.pl aborted due to compilation errors.