sub Systray_start_Click{ print "TEST \n"; ... }