package AA;
open(FILE, '<', $ARGV[0]) or die("open: $!\n");
package BB;
print(defined(read(FILE, $buf='', 0))?1:0, "\n");  # 0
package AA;
print(defined(read(FILE, $buf='', 0))?1:0, "\n");  # 1