#!/usr/bin/perl

use strict;
use warnings;

print pop @{[sort (<DATA>)]};
exit;

_ _DATA_ _
2.0.01.00.05
2.0.01.00.06
2.1.00.00.01
2.0.02.00.01
2.0.02.00.02

use strict;
use warnings;
use Data::Dumper;

my $dir = '.';
my $folders = "";
opendir (DIRHANDEL, "$dir")or warn "can't open $dir\n Error: $!";
while (defined ($folders = readdir(DIRHANDEL)))
     {
       &new($folders);
     }
closedir (DIRHANDEL);

sub new
   {
    my ($folders) = @_;
    #my @t1 = sort $folders,[-1];
    #print @t1, "\n";
    print +(sort <DATA>)[-1], "\n";
    #print +(sort <*$folders>)[-1], "\n";
    #print pop @{[sort ($folders)], "\n"};
    #print $folders, "\n";
   }


2.0.01.00.05
2.0.01.00.06
2.1.00.00.01
2.0.02.00.01
2.0.02.00.02

my @max = (0,0,0,0,0);
foreach (@files) {
  my @actual = split(\./, $_);
  for my $i (0..$#actual) {
    @max = @actual, last if $actual[$i] > $max[$i];
  } # for
} # foreach
print "Max: ", join(".", @max), "\n";

print eval 'v' . '115.116.114.97.116';

use strict;
use warnings;
use List::Util qw(maxstr);

my $dir = '.';
my $folders = "";
opendir (DIRHANDEL, "$dir")or warn "can't open $dir\n Error: $!";
while (defined ($folders = readdir(DIRHANDEL)))
     {
       my $str = maxstr $folders;
       print $str,"\n";
     }
closedir (DIRHANDEL);