#!/usr/bin/perl -w

use strict ;

use Term::ANSIColor ':constants' ;

$/ = "\n" ;

while (<>) {

    chomp ;
    
    s/\r//;
    print (($. & 1 ? MAGENTA : GREEN) . $_ . RESET . $/) ;
 
}