#!/usr/bin/perl

use strict;
use warnings;
use Readonly;
use feature qw/say/;

Readonly my $foo = 'bar';
Readonly my @baz = (qw/glug argh/);

say "foo is '$foo' and baz is '@baz' in main";
say "Perl version is $] and Readonly version is $Readonly::VERSION";

##</code><code>##

Use of uninitialized value $foo in concatenation (.) or string at readonly_fail.pl line 11.
foo is '' and baz is 'glug argh' in main
Perl version is 5.020003 and Readonly version is 2