Select Code to Download

perl -lwe 'my $h1=*STDOUT; open(my $h2, ">", "tmp/xx1.txt") or die; $h
+1 eq *STDOUT && print 1; $h2 eq *STDOUT && print 2'