newXS("DBI::bootstrap", boot_DBI, file);
newXS("SMTP::bootstrap", boot_SMTP, file);

##</code><code>##

#! /usr/bin/perl

use Net::SMTP;
use DBI;

sub sendmail()
{
	
	my $this_function = (caller(0))[3];
	print "[PERL -- $this_function]\n";
	
}