use strict;
sub open {
  my $filehandle = shift;
  return CORE::open($filehandle,@_[0..$#_]);
}

my $file = $0;
my $AFILE;
if (main::open ($AFILE, '<', $file)) {
  print while <$AFILE>;
}
else {
  warn 'Failed';
}

##</code><code>##

main::open($AFILE = IO::File->new(), "<$file")