時間だけを取る場合は、以下の記述で取れます。

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

月は、１月送れるので+1しています。
これをそれぞれ出力することによって、時間を表示することができます。
例えば・・・・

print "$year年$mon月$mday日$hour時$min分$sec秒\n";

これで年月日時分秒を表示します。

しかしこれだと、各桁数が不ぞろいになり且つ、
年は2000年だと00になってしまします。
従って以下の処理をすると正確に出力し、且つ
桁数を揃えることができます。

#-------------------------------------------------------
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
	$mon++;
#-------------------------------------------------------
if($year < 70) { $year += 2000; }
elsif($year < 1000) { $year += 1900; }

$date = sprintf("%04d/%02d/%02d-%02d:%02d",$year,$mon,$mday,$hour,$min);
#-------------------------------------------------------

ここで記述している04などの数字は桁数を表します。
各、年月日時分秒を$dateに代入しています。
表示させる時は以下のようにします。

#-------------------------------------------------------
print $date;
#-------------------------------------------------------

時間を操作するとさまざな処理ができますので試して見てください。