int main(array<System::String ^> ^args)
    {
		
      PERL_SYS_INIT3((int *)NULL,(char ***)NULL,(char ***)NULL);
      my_perl = perl_alloc();
      perl_construct(my_perl);
      PL_exit_flags |= PERL_EXIT_DESTRUCT_END;

	// Enabling Windows XP visual effects before any controls are created
	Application::EnableVisualStyles();
	Application::SetCompatibleTextRenderingDefault(false); 

	// Create the main window and run it
	Application::Run(gcnew Form1());

	perl_destruct(my_perl);
        perl_free(my_perl);
       PERL_SYS_TERM();

	return 0;
}