sub fileExtension {
        my $file = shift;
        my $pos = index($file,".");
        if ($pos == "0") {
            return undef;
        } else {
                my $ext = lc(substr($file,$pos));
                return $ext;
        }
}
my $filename = 'test.test.txt';
print fileExtension($filename);