ファイルの最終更新がローカル時間で今日より以前に作られたものかどうか判定したい。

一番簡単だと思うのが今日の始めのエポック秒と比較すると思ったのだが、その
計算がこんなふうになった。　もっとスマートな方法ある？localtimeとgmtimeを
呼ぶのが醜い気がするのだが、他に時間帯情報を得る方法あります？

use integer;
$now = time;
my ($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime($time);
my ($gsec,$gmin,$ghour,$gmday,$gmon,$gyear,$gwday) = gmtime($time);
my $startofday = $now / 86400 * 86400 + ($hour - $ghour) * 3600;