sub sendmail {
        my $param = shift;
        print $param->{'to'};
        #my $to=$param->{'to'};
        #print 'toto je 2 : '. $to;
        my $email= MIME::Lite->new(
        From=>"$param->{'from'}",
        To=>"$param->{'to'}",
        Subject=>"$param->{'subject'}",
        Data=>"$param->{'data'}"
        );
        $email->send;
}