Language Basics Perl

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