package Tie::Print;
require Tie::Scalar; our @ISA = ('Tie::StdScalar');
sub STORE { print pop }

package Tie::Localtime::Scalar;
require Tie::Scalar; our @ISA = ('Tie::StdScalar');
sub FETCH { return scalar localtime }

etcetera