1#!perl 2 3package Bar; 4our $VERSION = "2.000"; 5 6sub f {} 7 8package Foo; 9our @ISA = qw(Bar); 10our $VERSION = "1.000"; 11 12package main; 13Foo->f(); 14 15