<br>
#!/usr/local/bin/perl<br>
#<br>
# print's Friday's date, no matter what day of the week today is.<br>
#<br>
<br>
$t = time;<br>
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($t);<br>
<br>
$add_days = 5 - $wday;<br>
if ($add_days) {<br>
$add_secs = $add_days *...