perl subs

sub cat { while (defined($line = <>)) {
chomp($line);
print "$line\n";
}
}