sub mysub {
$obj=shift;

$obj->prant('hello world');
}