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