#!\usr\bin\perl

package Test20;

use strict;
use warnings;
use autodie;
use Fcntl;
use version;
use Perl::Tidy;
use base qw/Exporter/;
our @EXPORT_OK = qw/&greet/;
our $VERSION = '0.1';
my @data;

sysopen FH, 'test.txt', O_RDONLY;
@data = <FH>;
close FH;

for (@data) {
    exit 1 if !print;
}

sub greet {
    my ($name) = shift;
    return "Hello $name";
}
1;