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