use strict;
use warnings;

sub get_bofw {
        my $time = shift;
        my @t    = localtime($time);
        my $bow  = $time - ($t[6] * 86400);
        localtime($bow);
}

# Tue Mar 16 2010 12pm
my $bofw = get_bofw(1268766000);

print "$bofw\n";

##</code><code>##

use strict;
use warnings;

sub get_bofw {
        my $time = shift;
        my @t    = localtime($time);
        my $bow  = $time - ($t[6] * 86400);
        localtime($bow);
}

# Tue Mar 16 2010 12pm
my $time = timelocal(0,0,12,21,4,74);
my $bofw = get_bofw($time);

print "$bofw\n";