Select Code to Download

#!/usr/bin/perl -w
use strict;
...
while(( $k, $v) = each %hash ) {
  delete $hash{$k};
}