use strict;
use warnings;
use base "IO::File";
my $fh = main->new;
print $fh->O_RDWR; # 2