use 5.008_008;
use warnings;
 
# Function Name:        'usage'
# Function Inputs:      'none'
# Function Returns:     'none'
# Function Description: 'Prints usage on STDERR, for when invalid options are passed'
sub usage ## no critic qw(RequireArgUnpacking)
{
    require File::Basename;
    my $PROG = File::Basename::basename($0);
    for (@_)
    {
        print {*STDERR} $_;
    }
    print {*STDERR} "Try $PROG --help for more information.\n";
    exit 1;
}
 
usage();
 
END {
    use Test::More;
    ok($?);
    done_testing();
}

dXNlIDUuMDA4XzAwODsKdXNlIHdhcm5pbmdzOwoKIyBGdW5jdGlvbiBOYW1lOiAgICAgICAgJ3VzYWdlJwojIEZ1bmN0aW9uIElucHV0czogICAgICAnbm9uZScKIyBGdW5jdGlvbiBSZXR1cm5zOiAgICAgJ25vbmUnCiMgRnVuY3Rpb24gRGVzY3JpcHRpb246ICdQcmludHMgdXNhZ2Ugb24gU1RERVJSLCBmb3Igd2hlbiBpbnZhbGlkIG9wdGlvbnMgYXJlIHBhc3NlZCcKc3ViIHVzYWdlICMjIG5vIGNyaXRpYyBxdyhSZXF1aXJlQXJnVW5wYWNraW5nKQp7CiAgICByZXF1aXJlIEZpbGU6OkJhc2VuYW1lOwogICAgbXkgJFBST0cgPSBGaWxlOjpCYXNlbmFtZTo6YmFzZW5hbWUoJDApOwogICAgZm9yIChAXykKICAgIHsKICAgICAgICBwcmludCB7KlNUREVSUn0gJF87CiAgICB9CiAgICBwcmludCB7KlNUREVSUn0gIlRyeSAkUFJPRyAtLWhlbHAgZm9yIG1vcmUgaW5mb3JtYXRpb24uXG4iOwogICAgZXhpdCAxOwp9Cgp1c2FnZSgpOwoKRU5EIHsKICAgIHVzZSBUZXN0OjpNb3JlOwogICAgb2soJD8pOwogICAgZG9uZV90ZXN0aW5nKCk7Cn0=