#!/usr/bin/perl
# filter.pl - Don Yang (uguu.org)
# Remove trailing whitespaces.
#
# 05/12/02

open INFILE, "<" . (($#ARGV >= 0) ? $ARGV[0] : "-");
open OUTFILE, ">" . (($#ARGV > 0) ? $ARGV[1] : "-");

while(<INFILE>)
{
   chomp;
   s/\s\+$//;
   print OUTFILE "$_\n";
}

close INFILE;
close OUTFILE;