Select Code to Download

#!/usr/bin/env perl

...
$exit_F->Button(-text => 'Exit', -command => sub { exit; })->pack();

MainLoop;