package checkStuff;
sub new {
  $bar=2;
  bless $bar;
  return $bar;
}