$frame->DragAcceptFiles(1);
EVT_DROP_FILES( $frame, \&doit );
sub doit { warn "@_\n" }

##</code><code>##

use ...
Main( @ARGV );
exit( 0 );
...
sub