sub foo4 {
   my ($command) = @_;

   my $callback = sub {
      my ($foo, $bar) = @_;
   }   
   
}