#!/usr/bin/perl -w
use strict;
use Foo;
my $foo = Foo->new;
"test" >> $foo;