package Foo::Bar ;

  use strict ; use warnings ;

  our $VERSION = "1.01" ;

  use base qw(Foo);

  sub new { return bless [], shift ; } ;

  1 ;