Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print c => $ppp[1]->{c};
print c => $ppp[2]->{c};

use strict;
$\="\n";
...
my %b = %f;
print \%b;
print they => are => not => equal => chr(33) if \%b ne \%f ;