Select Code to Download

# use like this:
%pets = hash_slice( \%hash, qw( dog cat ) );

sub hash_slice (\%@) {
    my $h=shift;
    map { $_ => $h->{$_} } @_;
}