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

open INV, "<$ARGV[0]" or die $!;
open OUT, ">out.txt" or die $!;

print OUT "SWITCH: {\n    if ( defined \$sibling ) {\n";
while ( <INV> ) {
	if ( /^\s*sub\s+([a-zA-Z][^\s{]+)/ ) {
	    next if $1 eq 'AUTOLOAD' or $1 eq 'main';
        print OUT "        if ( \$sibling eq '$1' ) { &$1; last SWITCH };\n";
	}
}
print OUT "\n\n        &main;\n        last SWITCH;\n    }\n";

close INV;
close OUT;