my $name = sub { exit(0); };