correct perl version, added input check