#!/usr/bin/perl
# cat.pl - Don Yang (uguu.org)
#
# Copy file or stdin to stdout.
# Not binary clean.
#
# 09/03/04


print while(<>);