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";

##</code><code>##

Can't locate object method "open" via package "IO::Handle" (perhaps you forgot to load "IO::Handle"?) at ./redirect_stdout line 11.

shell returned 255

##</code><code>##

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");