if ( open (FILE, ">", "$filename") )
   {
      binmode FILE;
      print FILE $webpage;
      close FILE;
   }