window下讀取某個文件，格式是：
open (filehand,"路徑e.g：d://data.txt"); 

然后將打開的內容賦值給一個變量：
$protein=<filehand>; 

附：一個讀取蛋白質序列的程序。

代碼如下:
#!/bin/perl
open (PROTEINFILE,"f://perl//data.txt")||die("can not open the file!"); 
$protein =<PROTEINFILE>; 
close PROTEINFILE; 
print $protein;

結果如下：
F:/>perl/a.pl 
MNIDDKLEGLFLKCGGIDEMQSSRTMVVMGGVSGQSTVSGELQDSVLQDRSMPHQEILAADEVLQESEMRQQDMISHDEL 
MVHEETVKNDEEQMETHERLPQGLQYALNVPISVKQEITFTDVSEQLMRDKKQIR 

F:/>