#!/usr/bin/perl 
# Sample Program


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