sub loop {
  my ($self, @args) = @_;
#  sleep 1;
  print STDERR "Execute my code here...?\n";
  $self->SUPER::loop(@args);

}