#!/usr/bin/perl -W

# TP texte en perl
#
# Question I - 1
# version très courte
# 
# Antoine Miné
# 26/01/2007

# l'instruction 'while (<>)' est traité spécialement par perl...
while (<>)
{
    print;
}