Select Code to Download

#!/usr/bin/perl
use strict;
...
        print "$key " . (defined($hash{$key})?"is":"is not") . " defin
+ed\n";
        print "$key " . (exists($hash{$key})?"does":"does not") . " ex
+ist\n";
}

a is defined
a does exist
...
b does exist
c is not defined
c does not exist