open(CREDIT, "c/Log.txt");
while (my $credit = <CREDIT>) {
   chomp($credit);
   print ("$credit\n");
}
close(CREDIT);