perlで日付表示

dateコマンドでもいんですけど、perlでやってみた。

#!/usr/bin/perl

sub show_date {
my $tm = shift;
my ($day, $month, $year) = (localtime($tm))[3..5];
printf "%04d-%02d-%02d\n", $year + 1900, $month + 1, $day;
}

show_date(time);# 前々日を表示
#show_date(time - 48 * 3600);
# 翌日を表示
#show_date(time + 24 * 3600);