Help for this page
#!/usr/bin/perl ... print STDERR $a; print STDERR $b;
[s1] { ... a => 1 } [e2]
[s1] { ... b => 2 } [e2]