sub mail() {
	my $mailer = Mail::Mailer->new('smtp', Server => $server);
        $mailer->open(\%headers) or die "Can't open Mailheaders: $!\n";
        print "$mailer \n\n @check\n";
        $mailer->close();