Select Code to Download

use strict;
use warnings;
...
    print Dumper [1,2,3];
}
print Dumper [7,8,9];

__CONDENSED_OUTPUT__
$VAR1 = [1,2,3];
print() on unopened filehandle Dumper at D:\perl\t.pl line 4.
$VAR1 = [7,8,9];