sub perlSub { if($value eq "") { print "No value entered, please enter a value.\n" } }