{ package Tie_timer;
  sub TIESCALAR { bless {}, shift }
  sub FETCH { scalar localtime }
}
tie $now, Tie_timer;
print $now;