Help for this page

Select Code to Download

Select or download this

use Fcntl qw( O_RDWR O_CREAT );
sysopen( FILE, "$Inputfile.out", O_RDWR|O_CREAT, 0777 )
  or  die "$!";