成長するファイルを読み込み続ける

#!/usr/bin/perl

;#
;#成長するファイルを追いかける
;#

#------------------------------------------------#
#ライブラリ
#------------------------------------------------#
use strict;

#------------------------------------------------#
#メインルーチン
#------------------------------------------------#
package main;{
    my $file = $ARGV[0] || usage();
    my $sec  = $ARGV[1] || 3;
    my $position = 0;

    #----------------------------#
    #       エラーチェック       #
    #----------------------------#
    die "Not FILE PATH"         if( $file !~ /^([a-zA-Z0-9¥.¥_¥/¥-]{1,})$/ );
    die "Not found ($file)"     if( not -f $file );
    die "Can not READ ($file)"  if( not -r $file );
    die "Not INTEGER ($sec)"    if( $sec and $sec !~ /^([0-9]{1,})$/  );

    #----------------------------#
    #          追跡開始          #
    #----------------------------#
    open(DAT, $file) or die("Can not open ($file) $!");
    for(;;){
        seek(DAT, $position, 0);   #seekするとEOFフラグも解除される

        while(<DAT>){              #現在の末尾(EOF)まで処理する
            #-- 表示 --#
            print ;

            #-- 復帰用に現在位置を取得 --#
            $position = tell(DAT);
        }
        sleep( $sec );
    }
    close(DAT);    #実行されない。気持ち悪いならシグナル処理を入れる

    exit;
}


#------------------------------------------------#
#[function]使用説明、終了
#------------------------------------------------#
sub usage {
    print <<'END_OF_TXT';
使用方法： endless "file" [second]
---
成長するファイルを Ctrl + C などで終了されるまで表示し続ける。
(ログファイルなどをエンドレスにcatする。end-less)
---
  file ..... ファイルのパス。必須。
  second ... ファイルの成長が早い場合は少なく(1〜2)
             そうでない場合は大きな値を設定する(5〜)
             未指定の場合は3。
END_OF_TXT

    exit;
}