#!/usr/bin/perl 
# Sample Program

\$APPNAME="AnyName";

print "This is the var \$APPNAME and this is what needs to get substituted $APPNAME\n";