#!perl

# Internal perl
use warnings;
use strict;
use feature 'say';

# Internal perl modules
use Getopt::Long;

# External modules 
use App::aep;

# Version of this software
our $VERSION = '0.006';

my $app = App::aep->new(\&signal_handle);

sub signal_handle 
{
    my $value = shift;
    say "Here: $value";

    if ($value eq 'INT') 
    {
        warn "INT CAUGHT!";
    }
    
}


=head1 NAME

aep - Binary for using as an entry point

=head1 DESCRIPTION

=for comment The module's description.

Please refer to L<App::aep> for documentation.

=head1 AUTHOR

Paul G Webster <daemon@cpan.org>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2019 by Paul G Webster.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
