Help for this page

Select Code to Download


  1. or download this
    
    my $filename = time();
    ...
    print $doc;                 # This goes to the web browser
    print MYOUT $doc;           # This goes to a files
    close (MYOUT);
    
  2. or download this
    
    my(@files, $file);
    ...
          unlink("data/$file");
         }
       }