use File::Slurp "read_file";
print read_file "/web/aps/ap_menu.dat";