Select Code to Download

this is test only 1
Baki: 9.70
...

this is test only 3
Baki : 9.00

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