What's wrong here?

  #!/usr/bin/perl -w
  use strict;

  $WEB_GID=5001;
  $file = "newfile.html";

  # go into the docroot
  chdir "/web/www.example.com/htdocs";

  # create the file
  open NEWFILE, ">$file";
  print NEWFILE <STDIN>;
  close NEWFILE;

  # change group owner of file to 'web' and
  # make it readable by 'web' (webserver user)
  chown -1, $WEB_GID, $file;
  chmod 640, $file;