Select Code to Download

#!/usr/bin/env perl

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

MainLoop;