xlat

use utf8; #script encoded in utf8 without bom
use Mojolicious::Lite; 
use Data::HexDump;
{
	require Mojolicious;
	say "perl $^V, Mojolicious: v", Mojolicious->VERSION, ", ", `chcp` ;
}

post '/' => sub{
		my $self = shift;

xlat

use strict;
use warnings;
use feature qw(say);

=head1 FUNCTION send_mail( auth => 'server/auth/user/pwd', from => $from, to => $to, subject => $subject,  $body => $body, header => \%header )

	auth-type can be : PLAIN, LOGIN, CRAM-MD5, NTLM (and possibly others)

=cut
sub send_mail{

xlat

Sub ExportWorkBook()
    Dim sheet As Worksheet
    Dim filename As String
    Dim bookname As String
    Dim path As String
    Dim ls_data As String
    Dim lastSheet As Worksheet
    Dim lastRange As Range
    Set lastSheet = ThisWorkbook.ActiveSheet
    Set lastRange = ActiveCell