Not really an answer to your question -- I don't have one -- but some alternative code:
#!/usr/bin/perl use strict; use warnings; use File::Copy; my $buffer = <<EOS; Here there be dragons! EOS open my $fh, '>', 'foo.txt'; print $fh $buffer;
In reply to Re: There be dragons (or, perl5.8's open stringref breaks...)
by ikegami
in thread There be dragons (or, perl5.8's open stringref breaks...)
by Tanktalus
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |