require "format.pl"; & startcontent; #PRINT THE SUBMENU CONTENT FOR THE SELECTED MENU ITEM open (FILE, $content) or die "Can't open file!"; my @scoop = ; close(FILE); foreach my $sline(@scoop) { print $sline; } & endcontent;