open (AP_MENU, "/web/aps/ap_menu.dat") or die "Cannot open: $!";
@fileinput_ap = <AP_MENU>;
for ($i = 0; $i <= $#fileinput_ap; $i++)  { print "$fileinput_ap[$i]" }
close (AP_MENU) or die "Cannot close: $!";