#!/usr/bin/perl
  use strict;
  use warnings;

my $sitemapHeader = qq|<?xml version="1.0" encoding="UTF-8"?>

<urlset xmlns="http://www.sitemaps.org/schemas/sitemap/0.9">
|;

my $sitemapFooter = qq|
</urlset> 
|;

opendir my $dir, "/data/books01/books/2014/newfiles" or die "Cannot open directory: $!";
my @files = readdir $dir;
#closedir $dir;

my $sitemap ; 
$sitemap .= $sitemapHeader ;
foreach my $file (@files) { 
print " proccessing $file\n";
my $url;
$url .= qq|
 <url>
	<loc>http://elibrary.mediu.edu.my/books/2015/newfiles/$file</loc>
	<lastmod>2016-01-05</lastmod>
	<changefreq>yearly</changefreq>
	<priority>1.0</priority>
 </url>
|;
$sitemap .= $url ;

}
$sitemap .= $sitemapFooter ; 
my $filename = 'sitemap.xml';
open(OUT, '>', $filename) or die "Could not open file '$filename' $!";
print OUT $sitemap ; 

closedir $dir;