#!/usr/bin/perl

use strict;
use lib 'd:/programs/perl/lib/';
use lib 'c:/programs/perl/lib/';

use IniFile;
use Template;

my $nFiles = @ARGV - 1;
my $Cmd = $ARGV[$nFiles];

my $f = '';
for(my $i = 0 ; $i < $nFiles ; $i++) {
	if(-f $ARGV[$i]) {
		$f = $ARGV[$i];
		last;
	}
}

my %hash = (
	File => $f,
	);

my $cmd = Template->new()->ReplaceByHash($Cmd, \%hash, '{', '}', 0, undef, 1, 0, 0);
print "Cmd: [$Cmd]\n";
print "cmd: [$cmd]\n";

system($cmd);