sub transformJpg {
    dd transformJpg => \@_ ;
    my( $path, $dir, $file, $suffix, $idx ) = @_;
    $file =~ s/^.(.*).$/$1/;
    return "$dir$idx$suffix";
    return $path;
}
sub transformXml {
    dd transformXml => \@_ ;
    my( $path, $dir, $file, $suffix, $idx ) = @_;
    return "$dir$idx$suffix";
    return $path;
}