#! /usr/bin/perl use constant{PI => 3.14, STRING => 'Test'}; print PI,"\n",STRING,"\n"; [download]
In reply to Re: Constant string reference by reneeb in thread Constant string reference by przemo