読み取ってそのまま書き出す

こんな感じかな。むずい・・・

#! /usr/bin/env perl

while (<STDIN>) {
    print;
}

#! /usr/bin/env ruby

while line=gets
    print
end

#! /usr/bin/env python

import sys

while True:
    line=sys.stdin.read()
    if line:
        sys.stdout.write(line)
    else:
        break