my $ext = (split /\./, $AttachentFile)[1];