#!/usr/bin/perl use strict; use warnings; @ARGV == 2 or die "usage: apppage.pl "; my ($name, $displayname) = @ARGV; my $prefs = ""; if ($name eq 'guess') { $prefs = < ${displayname}
Menu
Select
Dismiss
EOF