現在時刻を取得する為には、time 関数を使います。 time 関数では1970年1月1日0：00からの経過秒数を取得できます。
また、これだけでは扱いづらいのですが、 localtime 関数を使うと年･月･日･曜日･･･など、項目ごとに時間のデータをリスト形式で取り出すことが出来ます。

   → time 関数のリファレンス
   → localtime 関数のリファレンス

取得されたリストデータは、下記のように別々の変数にセットすると扱いやすいでしょう。
取得された値についての詳細は、localtime 関数のリファレンス をご参照ください。

localtime 関数に直接 time 関数を放り込んでもよいのですが、取得した秒数を別の形で使いたい場合もありますので、ここでは一旦、経過秒数の値を変数にセットしてからその変数を localtime 関数に入れています。


年のデータは、1900年からの経過年を返します(現在が2000年の場合は、100を返します)。
したがって、年のデータに1900をあらかじめ足しておく必要があります。
また、月のデータも同様には ０〜１１の値を取得してくるため、あらかじめ１足しておく必要があります。




曜日は ０〜６までの数値で返されます。
このままでは分かりにくいため、下記のように表示したい曜日データを配列に入れておき、 取得された数値を曜日データの配列の添字として扱うことで、曜日を表示できます。

表示したい曜日の文字を配列で扱うと、表示方式を変更したい場合 （Sun → 日曜日）など、この配列の部分のみを変更すればよいため非常に便利です。


タイムゾーンを設定するとグリニッジ標準時からの時間のずれを修正できます。
時間の表示がずれてるな、と思ったときはタイムゾーンを設定してみてください。

タイムゾーンの設定は time 関数で時間を取得する前に設定してください。

もし、上記を設定しても時間が多少ずれる場合には、｢JST-11｣ や ｢JST-7｣ なども試してみてください。

日時を 「2002/02/04 14:43｣ などのように決まった書式で出力したい場合には、sprintf 関数を使います。

【書式】
sprintf( %4d, $year );    ← ４桁の数値のフォーマット(例：1922)
sprintf( %04d, $year );    ← ４桁に満たない場合は、足りない桁を0で埋める(例：0039)
sprintf( %s, $charactor );    ← 文字を表示する(例：abc)

sprintf 関数についての詳細は sprint 関数リファレンス をご参照ください。


〔時間の取得から、フォーマットを決めて表示するまでの流れ〕 上記スクリプトでは、午前と午後を分ける処理を行なっています。
日時は ｢2003/03/12 PM03:23｣ という感じで表示されます。
sprintf 関数での ｢%04d｣ は、4桁の数値を出力するという意味です。
数値が4桁に満たない場合は足りない桁を０で埋めて出力します。
｢%s｣ は、文字の出力です。

うるう年は４の倍数の年に、時間のずれを調整する為、2月の日数を1日増やして29日までとする年です。 4の倍数でも100の倍数の年はうるう年になりません。また、100の倍数でも400の倍数の年の場合はうるう年となります。

下記のスクリプトでは、ユーザーに年のデータを入力してもらい、その年がうるう年かどうかを判定します。

〔サンプルスクリプト〕

カウントダウンを行なう場合には、現在からカウントダウンまでの日時の差分を取得して計算します。
特定日時の経過秒数を取得する場合には、Time::Local モジュールの timelocal 関数を使います。


〔2030年1月1日までの日数〕 ここでは、秒まで表示させていますが実際には、日数だけでよいと思います。
また、差分の秒数がマイナスになったときには０を表示するように処理を行なうと、 カウントダウンが終了した後も、マイナスの数値が表示されることがないため、見苦しくないと思います。