$dev_time = ($deadline-$today) + $several_weeks; $dev_time = $developer_estimate*2 + $fudge_factor; # note $fudge factor is always a positive integer! if (use strict && use warnings) { $dev_time = 0.5*($dev_time); } if ($no_planned_approach) { $dev_time = $developer_estimate * (2+rand(5)); } if (#!/usr/bin/perl -T and use CGI.pm) { $security_nightmares *= 0.01; }