#! /usr/bin/env perl use strict; print reverse <>;