use Tie::Sub;
   tie my %sub, 'Tie::Sub', sub{sprintf '%04d', shift};
   print "See $sub{4} digits.";