my $foo = /aoeu/ ? 15 : 16;

my $bar = Bar->new();

bless \my($baz), $class;

open my $quux, '<', $file or die $!;

my $bytes_read = read $quux, my($blah), $length;