use CGI::Carp qw/carpout/;
use FileHandle;

my $fh = new FileHandle;  
$fh->open("logfile.log") or die "Failed to open logfile: $!";

carpout($fh);