[Perl] 同時支援 STDIN 和檔案輸入

Perl 可同時支援 STDIN 和檔案輸入，用以下程式碼為例子。
從 STDIN 或檔案輸入文字，並在每行文字前加入 4 位寬度的 16 進位編號：

#!/usr/bin/perl
use strict;
use warnings;
use bigint;

my $lineNum = 0;
while(<>)  # 重點在這行
{
      chomp($_);
      printf("0x%04s", substr($lineNum->as_hex(), 2));
      print "  $_\n";

      $lineNum++;
}

執行方式
（假設檔名為 main.pl）
chmod +x ./main.pl

./main.pl < input.txt
或者
cat input.txt | main.pl
或
./main.pl input.txt
皆可執行。