if( open my($fh) ... ){
1
2
3
4
5
}