in reply to open $self->{FILE}

From perldoc -f print: 
Note that if you're storing FILEHANDLES in an
array or other expression, you will have to use a
block returning its value instead:

  print { $files[$i] } "stuff\n";
  print { $OK ? STDOUT : STDERR } "stuff\n";

[download]

Replies are listed 'Best First'.
Re^2: open $self->{FILE}
by b888 (Beadle) on Nov 05, 2004 at 16:08 UTC

    Thanks to all for help 

    print { $files[$i] } "stuff\n";

    [download]
    Definitly helps
[reply]
[d/l]

In Section Seekers of Perl Wisdom