定型 perl

------------------------------------
#!/usr/bin/perl

use strict;
use warnings;

exit 0;
------------------------------------
#入力
print "file = ";
chomp(my $line = <STDIN>);
------------------------------------
#ファイルオープン
unless(open(FILE_OUT, "> $fileOut")) {
print "[Error]open\n";
exit 1;
}
close FILE_OUT;

unless(open(FILE_IN, "$fileIn")) {
print "[Error]open\n";
exit 1;
}


#ファイルリード
$line = <FILE_IN> ;

#ファイルクローズ
close FILE_IN;
------------------------------------

コメントは#だっけ？