#!/usr/bin/perl

  use Date::Format;

  print time2str("%Y/%m/%d %T\n", time());