時刻の差を求める Perl ワンライナー

% perl -MTime::Local -le 'print ((timelocal(0,0,23,1,1,2000)-timelocal(0,30,8,,1,1,2000))/(60*60))'         
14.5

コマンドラインでもっと楽に計算できそうな気がする。。。