Working on perl app