$ref = sub {localtime(@_)};