use strict;
use warnings;

use Time::Piece;
use Time::Seconds;
use Date::Calc qw(Mktime);

sub get_bofw {
	my $time = Mktime ( @_ );
	my $t    = localtime($time);
	my $bow  = $t - ($t->_wday * ONE_DAY); 
}

my $bofw = get_bofw( 2010, 03, 16, 12, 0, 0 );

print "$bofw\n";