#!/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);
}

##</code><code>##

Please specify a file: noname.pl

lrep/nib/rsu/!#
;tcirts esu
;sgninraw esu

;" :elif a yficeps esaelP" tnirp
;)>NIDTS< = emanelif$ ym(pmohc

;"n\!$ :emanelif$ nepo t'naC" eid ro emanelif$ ,'<' ,nIelif$ ym nepo

{ )>nIelif$< = enil$ ym( elihw
;)enil$(esrever ralacs tnirp    
}