Select Code to Download

#!/usr/local/bin/perl
use Tk;

...

    $txt -> insert('end',"Process is $process. File location is $name 
+and selected bins is $bins.\n");
}

#!/usr/bin/perl -w 
use strict;

...
}

MainLoop;