Old perl codes