basic perl app