#!/usr/bin/perl -w
use strict;
use IO::All;
my $temp_file = io('?');
"foo" > $temp_file;

##</code><code>##

Can't call method "print" on an undefined value at /usr/lib/perl5/site_perl/5.8.3/IO/All.pm line 618.