use strict;
use warnings;

use Data::Dumper;

my $obj = bless {}, 'Foo';
$obj->{ print Dumper( \@_ ) }( 'hello' );

__END__