my $spr = sub { my $fmt = shift; return sprintf $fmt, @_; };