Help for this page
#! /usr/bin/perl ... $arg=shift; print $arg; }
#! /usr/bin/perl ... $value=$obj->access($arg); print $value;