經過檢視，總算髮現是這個檔案來控制。這裡一共是一個68行的檔案。我們要修改 在36行。我們首先來看一些，有那些內容：

1:  my $|FILEPOINTER|_file_name = '<CURSOR>';#input file name
2:  
3:  open my $|FILEPOINTER|,'<',$|FILEPOINTER|_file_name
4:  or die "$0 : failed to open input file '$|FILEPOINTER|_file_name' "$!\n";
5:  
6:  <SPLIT>{-continue_here-}
7:  close $|FILEPOINTER|
8:  or warn "$0 " failed to close input file '$|FILEPOINTER|_file_name' "$!\n";

上面是慢慢的8行內容，你說開啟一個輸入檔案容易嗎？每辦法，我們完全可以自己精簡：

 1:    第一行,my $|FILEPOINTER|_file_name太長了，後面直接用個in表示，當然後面也要改
 2:    第二行刪除
 3:    第三行：open my $|FILEPOINTER|,'<',$|FILEPOINTER|_in or die "failed open\n";
 4:    然後到close一行：
 5:    這個close 後面的warn，卻是沒有遇到過，所以直接把後面的刪除
 6:    close $|FILEPOINTER|;
 7:    具體的內容如下：
 8:  
 9:  = Idioms.open input file == map:ii, sc:i ==
10:  my      $|?FILEPOINTER|_in = "<CURSOR>";
11:  open  my $|FILEPOINTER|, '<', $|FILEPOINTER|_in or die "cannot open\n";
12:  close  $|FILEPOINTER|;
13:  
14:  == Idioms.open output file == map:io, sc:o ==
15:  my      $|?FILEPOINTER|_out = "<CURSOR>";
16:  open  my $|FILEPOINTER|, '>', $|FILEPOINTER|_out or die  "cannot open$!\n";
17:  close  $|FILEPOINTER|;

這裡只是根據我自己的喜好來修改的，大家知道怎麼修改了以後完全可以自己折騰。 這樣就可以了，不用搞的太複雜。讓人看起來頭暈。