#!/usr/bin/perl -W
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use CGI;

#------------------------------------------------------------
#Get date
#------------------------------------------------------------

my $dt = `date`;
my (@dtar) = split /[ :]/, $dt;

#------------------------------------------------------------
#Get data
#------------------------------------------------------------

$FILEPATH = "/PATH";
$valar = `ls $FILEPATH`;

#------------------------------------------------------------
#Get 3 versions
#------------------------------------------------------------


@valar1 = split(/[\s+\n]/, $valar);

foreach (@valar1)
        {
        if ($_ =~ /$dtar[1]/)
                {
                my ($ver1) = $_ =~ m/(v09.11-[a-z]\d{3})/;
                print "$ver1\n";
                last;
                }
        }

foreach (@valar1)
        {
        if (my ($ver2) = $_ =~ m/(v09.10-[a-z]\d{3})/)
                {
                print "$ver2\n";
                last;
                }
        }

foreach (@valar1)
        {
        if (my ($ver3) = $_ =~ m/(v08.\d{2}-[a-z]\d{3})/)
                {
                print "$ver3\n";
                last;
                }
        }