Help for this page

Select Code to Download


  1. or download this
    if ($main::stateIn{'sibling'}) {
    no strict 'refs';
    &{$main::stateIn{'sibling'}}();
}
  2. or download this
    #!C:/perl/bin/perl.exe -w
use strict;
...

close INV;
close OUT;
  3. or download this
    SWITCH: {
    if ( defined $sibling ) {
...
        &main;
        last SWITCH;
    }