package whatever;
use IO::All;
...
inside sub ...
$text = 'something unremarkable';
$text >> io('existing file');

##</code><code>##

Odd number of elements in anonymous hash at line <of the call>