issue wit sysopen

[Sunita Rani Pradhan]

Hi All

 

            I have following simple code :

 

===================

use warnings;

 

sysopen(DATA,"list1.txt",O_RDWR|O_TRUNC);

 

@array1=<DATA>;

 

 

foreach $i (@array1){

 

            $i =~ s/d|b/G/ig;

            print DATA $i;

}

 

close DATA;

-------------------

 

 

It is failing with following error : Argument "O_VVW^C" isn't numeric in
sysopen at sysopen.pl line 3.

 

I am not able to find the cause of this issue. Could anybody let me know
, where I am wrong ? 

 

 

Thanks

Sunita