use strict;
use warnings;

my $t = time(); $t -= $t % 86400;
my $wday = (localtime($t))[6];
my $s = $t - 86400 * $wday;
my $e = $t + 86400 * (7 - $wday) - 1;
@_ = localtime($s); $_[4]++; $_[5] += 1900;
print "$_[4]-$_[3]-$_[5] to ";
@_ = localtime($e); $_[4]++; $_[5] += 1900;
print "$_[4]-$_[3]-$_[5]";