Select Code to Download

$start-> configure (-text => "Start", -command => [\&count]);
MainLoop();
...
        );
    }
}

#!/usr/bin/perl -w
$| = 1; # make line buffered
...
  exit;
  }
}