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