#! /usr/bin/perl
# CSC 310 Project # 1


print "Enter filename: ";
chomp($fileName = <STDIN>);
open (FILE, '<', $fileName) || die ("Could not open $fileName\n");


while ($line = <FILE>){
    print "\n";
    ($lastName,$firstName,$ssn,$address,$city,$state,$zip,$phone) = split ',', $line;
    print "$lastName, $firstName\n"."$ssn\n"."$address\n", "$city $state $zip\n";

    open (PSWD, '>>', 'passwd.txt');
    print PSWD "$firstName[1]\n";
}