#!/bin/perl $num=5; $p = \$num; print 'The address assigned $p is ', $p, "\n"; print "The value stored at that address is $$p \n";