Select Code to Download

$ perl -MO=Deparse 901847.pl
use warnings;
...
        print $key, "\n";
    }
}

use warnings;
use strict;
...

$key=one $value=1 $_=one
$key=one $value=1 $_=1