# usage: 
# ls *.fits | perl rn.pl

while( $_ = <STDIN> ){
  print;

  chomp;
  `mv $_ ${_}s`;
}