Select Code to Download

#!/usr/bin/perl
use strict;
...
print "###############################################################
+#####################\n";
$Data::Dumper::Varname = "then";
print Dumper($then1);

$now1 = undef;
######################################################################
+##############
$then1 = undef;