Select Code to Download

#!/usr/bin/perl
use warnings;
...

my $o = 'My'->new(x => 10);
say $o->x;  # No other way.