Select Code to Download

#!/usr/bin/perl
# test.pl
...
    print pop(@keys),'=',pop(@values),"\n";
}

$cfg{name} = 'philip';
$cfg{age} = '21';