modified PickUpFileName.hs