Just out of curiosity imlou why don't you want to use modules? Remember, the CPAN is your friend. Try taking a peek at Time::Piece for example.

-- vek --