C:\>perl a:\oraexp.pl
Prototype mismatch: sub Socket::IPPROTO_TCP () vs none at
C:/Perl/lib/Socket.pm line 395.
Prototype mismatch: sub Socket::TCP_NODELAY () vs none at
C:/Perl/lib/Socket.pm
line 395.
Scalar found where operator expected at a:\oraexp.pl line 56, near "'\\exp '
$CONNECTUSER"
        (Missing operator before  $CONNECTUSER?)
<READMORE>
String found where operator expected at a:\oraexp.pl line 56, near
"$BACKUPDIR
' \samsdb.dmp log='"
        (Missing operator before ' \samsdb.dmp log='?)
Scalar found where operator expected at a:\oraexp.pl line 57, near "'\\exp '
$CONNECTUSER"
        (Missing operator before  $CONNECTUSER?)
String found where operator expected at a:\oraexp.pl line 57, near
"$BACKUPDIR
' \samsdb.dmp log='"
        (Missing operator before ' \samsdb.dmp log='?)
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.