What's wrong here?


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

  chdir "/tmp";

  # Open temporary file 
  open FILEHANDLE, ">tmp.$$";

  print FILEHANDLE, <STDIN>;

  close FILEHANDLE;