#!/usr/bin/perl
use v5.18;

BEGIN {
    do 'MyInit.pl';
}

mySub();

my @array = ( 'one', 'two', 'three' );
if( any {$_ eq 'two'} @array ) {
    say 'So far so good...';
}

if( looks_like_number( "five" ) ) {
    say 'Hmm...';
}
else {
    say 'Perl can\'t read.';
}

open( my $dne, '<', 'nonexistentfile.txt' );
die 'Failed to import autodie';