#!/usr/bin/env perl

open CAT, "> dogCow.cat" and print CAT while <>;