$fr->Button(-text=>'x',-command=>[\&funktionX,$para] )->pack;