int main(array<System::String ^> ^args)
    {

        //PERL_SYS_INIT3(0,'ss','dd');
        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;
}