use strict ; use warnings ;

  use Foo::Bar ;

  my $obj = new Foo::Bar ;

  print $obj->version(), "\n" ;