{
  print "Enter filename: ";
  chomp($f = <STDIN>);
  print "invalid file" and redo
    unless -f $f and -r $f;
}
open(f) and print reverse <f>;