#! /usr/bin/perl -w -T print $<;