Select Code to Download

use strict;
use warnings;
...

print "tag1 = $tag1\n";
print "tag2 = $tag2\n";

tag1 = 12345
tag2 = 12345