#!/usr/bin/perl -w
for my $i (1..164) {
   print <<"EOF";
    <Slide>
      <SlideNumber>$i</SlideNumber>
      <PresentationTime>${i}000</PresentationTime>
      <SlideFull>
        <FileName>Slide$i.png</FileName>
        <Dimensions>
          <Width>720</Width>
          <Height>540</Height>
        </Dimensions>
      </SlideFull>
    </Slide>
EOF
}