# You would use something like this to create the obscured data...
perl -e 'print pack("u", "justanotherperlhacker"), "\n"'

# How to access your obscured data in your script...
our $LOGIN = unpack(chr(ord("a") + 19 + print ""), "5:G5S=&%N;W1H97)P97)L:&%C:V5R");