Try using anonymous file handles using the gensym function in
the package Symbol;
#!/usr/bin/perl -w
use Symbol;
my $fh = gensym;
my $file = "bar";
open $fh, ">${file}" or die;
print $fh "foo\n";
close $fh;
> Is there another way to write to files than
>
> print OPF (<<END);
> ...
> END
>
> I've checked out the Eagle book and all I saw concerning this was
> tie(ing) FILEHANDLES to STDOUT/IN.
>
> Also, why can't I write to files from startup.pl (i.e. during server start
> up?!)
>
> If these are obvious, please don't shout. Somtimes the obvious is hard to
> see!! Ha!
...
__... __ .... ________________________________________________________
... ...
.. .. Renzo Toma http://www.veronica.nl
.... Veronica Internet UNIX system engineer/admin
____ ... _____________________________________________________________
.