#!/usr/bin/perl

 # This is a script for removing trailing whitespace from lines in files that

 # are listed on the command line.

 # This subroutine does the work for one file.

 sub detrail {

 my($file) = $_[0];

 my($changed) = 0;

 open(IN, "$file") || die "Can't open $file for input";

 @lines = <IN>;

 close(IN);

 foreach (@lines)

   {

   if (/\s+\n$/)

     {

     s/\s+\n$/\n/;

     $changed = 1;

     }

   }

 if ($changed)

   {

   open(OUT, ">$file") || die "Can't open $file for output";

   print OUT @lines;

   close(OUT);

   }

 }

 # This is the main program

 $, = "";   # Output field separator

 for ($i = 0; $i < @ARGV; $i++) { &detrail($ARGV[$i]); }

 # End