とりあえず現在の日付と時間がちょいと整形した形でほしいとき、こういう記述する人います？
自分、結構好きだったりするんですけどね、こいうの。

$date_time = sprintf "%04d/%02d/%02d %02d:%02d:%02d\n", sub{$_[5]+1900,$_[4]+1,@_[3,2,1,0]}->(localtime);