1#!/usr/bin/perl -w
2
3open( INFILE, "$ARGV[0]" ) || die $@;
4open( OUTFILE, ">$ARGV[0].new" ) || die $@;
5
6while ( <INFILE> ) {
7	$_ =~ s/[ \t\r]*$//;
8	print OUTFILE "$_";
9}
10
11close( INFILE );
12close( OUTFILE );
13
14rename( "$ARGV[0].new", "$ARGV[0]" ) || die @_;
15
16exit( 0 );
17
18
19