#! /usr/bin/perl -w
use strict;
use Time::Local;
 
my ($mt, $dt, $yr, $sec, $wk_st, $wk_nd, $st_date, $nd_date);
 
(@ARGV != 1) && die "Invalid parameters. Enter date in mm/dd/yyyy format. Exiting";
($ARGV[0] !~ /^(0[1-9]|1[012])\/(0[1-9]|[12][0-9]|3[01])\/[\d]{4}$/)
&& die "Invalid date format. Enter date in mm/dd/yyyy. Exiting";
 
$mt = substr $ARGV[0], 0, 2;
$dt = substr $ARGV[0], 3, 2;
$yr = substr $ARGV[0], 6, 4;
 
$sec = timelocal (0, 0, 0, $dt, $mt - 1, $yr);
$wk_st = $sec - (((localtime ($sec))[6] - 1) * 86400);
$wk_nd = $sec + ((6 - ((localtime ($sec))[6] - 1)) * 86400);
 
$st_date = localtime ($wk_st);
$nd_date = localtime ($wk_nd);
 
print "Week Start date: $st_date\n";
print "Week End date: $nd_date\n";