#! /usr/bin/perl
use XML::Simple;
use Data::Dumper;

$dir = "C:/Guru/Apollo/Video/VC1/";
$count = 0;
opendir(BIN, $dir) or die "Can't open $dir: $!";
my @files = glob("C:/Guru/Apollo/Video/VC1/*");
	
foreach(@files) 
		{
			print "\n",$_,"\n";
			$count++;	
my $xml = q~<TEST testId="$count">
				<InputFile CopyFile="true" DeleteLocalFile="true">$_</InputFile>
				<PlaybackActions>
                <Start>
                <DumpTopology></DumpTopology>
                </Start>
                <MonitorPipeline>
                 <Duration>-1</Duration>
                </MonitorPipeline>
                <Close>
                </Close>
            </PlaybackActions>
		</TEST>~;

print $xml,$/;
	}