perlの日付計算

当日から7日前の日をunixtimeの値で取りたいが、取得仕方が分からず、時間がかかった。

例　実行と期待する結果

01月06日11時30分に実行すると

12月30日00時00分

が取得できる。

サイトの検索せずにロジックを作れるくらいになりたいなあ。