Select Code to Download

use File::Path qw(make_path remove_tree);
use Digest::MD5;
...

}
}

sub new_sub {
data parsing, file handling ect
...

new_sub ($file1);
new_sub($file2);