Select Code to Download

use strict;
use warnings;
...
opendir (DIR, "/home/vinoth/");
my @files = grep /\.xml$/, readdir DIR;
print Dumper \@files;