#!/usr/bin/perl 
use strict;
use warnings;
use POSIX qw(dup2);

open FH, '>', 'log';
dup2(fileno FH, 2);
die "exit from program\n";