if(  @ARGV  &&  $ARGV[0] eq "do_long_sub"  ) {
    &long_sub();
    exit( 0 );
}
# ...
$main->button(
    -text => "Start Long-Sub",
    -command => sub { system(1,$^X,$0,"do_long_sub") }
)->pack;