Is it possible to create a variable in the program and store it in the file such as ($amount):
open(OUTF,">>card1.out" or dienice("Couldn't open car.out for writing: $!"
$amount = "$16";
print OUTF "$FORM{'amount'}\n";
close(OUTF);
open(OUTF,">>card1.out" or dienice("Couldn't open car.out for writing: $!"
$amount = "$16";
print OUTF "$FORM{'amount'}\n";
close(OUTF);