$ perl -l
use foo;
use strict;
use warnings;

my $foo = foo::->new();
$foo->data('bar', 42);
print $foo->data('bar');
__END__
bar