#!/usr/bin/perl use strict; use Community::Storage; my $obj = Community::Storage->new({name => 'Hans Peter'}); print $obj->param('name'),"\n";