Select Code to Download

# open xml file to write
open(FIL,">../pub/database.xml");

my $img_dir = '../images';
opendir HOMEDIR, $img_dir or die "opendir failed: $!\n";
...

flock FIL, 8 or die "flock failed: $!\n";
close FIL    or die "close failed: $!\n";

{
  my ( $re, %c2e, $num_ent );
...
    return $string;
  }
}