sub readsource {
  my $Class = shift;
  ...
  $Class->source();
}