package main;

my $o = Bar->new;
$o->go;