Select Code to Download

use Module::ScanDeps;
use strict;
...
while (($key, $value) = each(%{$hash_ref})) {
     print $key.", ".$value."<br />";
}

#!/usr/bin/perl
use warnings;
...

  print "<br><br><b>Done.</b>";
}