#!perl
package Bar;
our $VERSION = "2.000";
sub f {}
package Foo;
our @ISA = qw(Bar);
our $VERSION = "1.000";
package main;
Foo->f();