Select Code to Download

if ($main::stateIn{'sibling'}) {
    no strict 'refs';
    &{$main::stateIn{'sibling'}}();
}

#!C:/perl/bin/perl.exe -w
use strict;
...

close INV;
close OUT;

SWITCH: {
    if ( defined $sibling ) {
...
        &main;
        last SWITCH;
    }