#!perl

package Bar;
our $VERSION = "2.000";

sub f {}

package Foo;
our @ISA = qw(Bar);
our $VERSION = "1.000";

package main;
Foo->f();

