Help for this page

Select Code to Download

Select or download this

  open $files{$name}, '>', "$name.out" if (! defined $files{$name});

Select or download this

  if (! defined $files{$name})
    {
    open $files{$name}, '>', "$name.out";
    syswrite $files{$name}, "This is a header line for file $name.out\
+r\n"; 
    }