Adding basic perl codes