sub get_date {
	# The subroutine begins by defining 
	# some local working variables
  
  local ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst,$date);
  local (@days, @months); 
 
  @days = ('Sunday','Monday','Tuesday','Wednesday','Thursday',
           'Friday','Saturday');
  @months = ('January','February','March','April','May','June','July',
             'August','September','October','November','December');

                # Next, it uses the localtime command to get the current
                # time, from the value returned by the time
                # command, splitting it into variables.

  ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

  if ($hour < 10) 
    { 
    $hour = "0$hour"; 
    }
  if ($min < 10) 
    { 
    $min = "0$min"; 
    }
  if ($sec < 10) 
    { $sec = "0$sec"; 
    }
  $year += 1900;
  $date = "$days[$wday], $months[$mon] $mday, $year at $hour\:$min\:$sec";
  return $date;
  }