#!/usr/bin/perl -w
while (<>)
{
    print ;
}