There is no need for any of that, just call exit after MainLoop

Main ( @ARGV );
exit ( 0 );
sub Main {
   ...
   MainLoop;
}
[download]