1 #! /usr/bin/perl
2 
3 use strict;
4 use warnings;
5 
6 use IO::File;
7
8 my $logfile = 'test.log';
9  
10 STDOUT->open($logfile, '>') or die "Can't re-direct STDOUT:$!";
11 
12 print "Here's some data...\n";