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