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