perl -MFoo -E'
my $foo = Foo->new;
$foo->bar("baz");
$foo->qux( $foo->bar );
say $foo->bar;
say $foo->qux;
'