Select Code to Download

#extended usage with names
 print Data::Dumper->Dump([$foo, $bar], [qw(foo *ary)]);

use Data::Dumper::Lazy;
@a = 1..5; 
dmp {@a};