I don't know what the "correct" way to do this is, but here's one way:

#!/usr/bin/perl
use warnings;
use strict;

my $logfile ='/tmp/foo.txt';
open STDERR, ">>", $logfile or die "Cannot redirect STDERR to $logfile
+:$!\n";
my $in = 'C:/tmp/in.txt';
open IN, $in or die "Cannot open $in:$!\n";
close IN;
close STDERR;
[download]