head	1.1;
access;
symbols;
locks; strict;
comment	@# @;


1.1
date	94.03.12.00.59.25;	author paul;	state Exp;
branches;
next	;


desc
@@


1.1
log
@Initial revision
@
text
@#!/usr/bin/perl
while($#ARGV>=0)
{
  open(SSN,"ssnid <$ARGV[0]|") || die "ssnid: $!";
  while (<SSN>)
  {
    chop;
    s/5://;
    split;
    printf("%s%-50s\n",$_[0],$_[1]);
  }
  shift;
}
@