#!/usr/bin/perl


# $Revision: 1.3 $ 
# $Date: 2002/12/09 18:14:07 $ 
# $Author: kestes%walrus.com $ 
# $Source: /cvsroot/mozilla/webtools/tinderbox2/src/clientbin/show_time,v $ 
# $Name:  $ 

$t=time();

$out= (
       "The current time on ".`hostname`. "\n".
       "UnixTime: ".$t."\n".
       "LocalTime: ".localtime($t)."\n".
       "GMTime: ".gmtime($t)."\n".
       "\n"
	       );

print $out;
