#!/usr/bin/perl -w
#
# test.pl -- IO:: test code...

use strict;
use warnings;
use diagnostics;
use IO::File;

my @list = qw[ one.tmp two.tmp three.tmp ];

my @handles = map { IO::File->new(">$_") } @list;

foreach my $handle (@handles)
{
    $handle->print("Hi how the hell are ya!");
    $handle->close();
}