implement cat in perl