#!/tps/bin/perl

use strict;
use warnings;
use autodie;

{
    my $logfilename = './test.log';
    open my $fh, '>>', $logfilename;
    print $fh "...";
    print "...";
}

{
    my $logfilename = './test2.log';
    no autodie 'open';
    my $open_ok = open my $fh, '>>', $logfilename;
    use autodie 'open';

    if (not $open_ok) {
        my $os_error = $!;
        print "Can't open '$logfilename': $os_error\n";
        die "Can't open '$logfilename': $os_error";
    }

    print $fh "...";
    print "...";
}