#!/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;