Help for this page
#!/usr/bin/perl -w use strict; ... } MainLoop();
-command=> \&open_pdf ## better -command=> open_pdf(..params...)