Select Code to Download

#!/usr/bin/perl
use strict;
...
close $fh;
my $status = $? >> 8;
print "$status\n";

Hello
1

#!/usr/bin/perl
use strict;
...
close $fh;
my $status = $? >> 8;
print "$status\n";

Hello
Can't close(GLOB(0x10082a098)) filehandle: '' at test.pl line 7

use strict;
use autodie;
...
#close $fh;
my $status = $? >> 8;
print "$status\n";

Hello
0

use strict;
use autodie;
...
 close $fh;}
my $status = $? >> 8;
print "$status\n";

Hello
1