use Date::Manip;
...
$date = Date_PrevWorkDay($date,$off [,$time]);