seek FILE, 0, 0;
print FILE $program;