$ perl 740300.pl
before
fileno before local: 1
fileno after open: 1
after

$ cat file.txt
740300.pl