Select Code to Download

use strict;
use warnings;
...
}

tst({a=>1,b=>2});

C:/Perl_524/bin\perl.exe  d:/tmp/pm/refaliasing.pl 
{ a => 1, b => 2 }