Help for this page
#!/usr/bin/perl -w use Tk; ... sub abort_routine{ exit }
#!/usr/bin/perl use warnings; ... exit }