perl/open関数、while文、デフォルト変数$_〜ファイルを開いて読み込み内容をprint〜

#! usr /bin/perl

use strict;
use warnings;

#関数openを使ってファイルをひらいてみる
#open(FILE,'開きたいファイル名') or die "$!" =>ファイルが開けなかったら終了するよ。
#while(条件式){繰り返し実行する処理};

open(FILE,'file.txt') or die "$!";
while (my $line = <FILE>){
    print $line;
}
close(FILE);

=head
#デフォルト変数$_を使用して書いてみる
open(FILE,'file.txt') or die "$!";
while (<FILE>){
    print "$_";
}
close(FILE);
=cut