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