#!/usr/sbin/perl
#
# fix_binftp.prl
#
# a script to strip off the CR-LF's that get appended when ascii files
# are ftp'd as binary
#
#  invoke as : /PATH/fix_binftp.prl <  infile > outfile

while (<>)
{
  chop($_); chop($_);
  print $_,"\n";
}