#!/usr/bin/perl -w
use strict ;
my ($a, @line) ;
print "Please specify a file." ;
chomp ($a = <STDIN>) ;
open ($a) ;
foreach @line ($a) {
	print reverse(@line);
}