#!/bin/perl print <