use Carp;
sub simpleopen {
    my ($mode, $file) = @_;
    my $fh;
    open($fh, $mode, $file) or croak $!;
    return $fh
}
my $logfile = simpleopen('>>', "$0.log");