Select Code to Download

use strict;
use warnings;
...
print "\$scalar now holds the following value: [", defined $scalar ? $
+scalar : 'UNDEF',"]\n";