#!/usr/bin/env perl
use strict;
use warnings;

package Foo;

use IO::All;

sub foo {
        my $text = 'bar';
        $text >> io ('/tmp/quux.txt');
}

package main;

Foo::foo ();