{
open( my $fh, "hoge.txt" );
while(<$fh>){
....
}