$str = formline <<'END', $key, $value;
@<<<<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
END

open(DEV, ">/tmp/IDS-$date") or die "can't open file!\n";
print DEV $^A;
close(DEV);