use absolutify;
use English qw( -no_match_vars );
use Readonly qw( Readonly );
Readonly my $FOO => 12345;
print "foo: $FOO\nprogram: $PROGRAM_NAME\n";