$|=1;@_=<DATA>;@_=($_[0].$_[1],$_[1].$_[0]
);for(20051231..20060101){print$_[0];sleep
1;print"\010"x length($_[0]);print$_[1];
sleep 1;print"\010"x length($_[1]);}
__DATA__
Happy     Year!
      New