[perl][mysql]как определить даты начала и конца недели?

#!/usr/bin/perl

use strict;

my $now = time;
my $mon = $now - (((gmtime $now)[6] + 6) % 7) * 86400;
$mon -= $mon % 86400;
my $sun = $mon + 604799;

printf "now: %s\n", scalar gmtime $now;
printf "mon: %s\n", scalar gmtime $mon;
printf "sun: %s\n", scalar gmtime $sun;