package Global1;

require Exporter;
@ISA = qw(Exporter);

@EXPORT = qw (	$MANAGER $DEBUG );
$MANAGER = "";
$DEBUG = 1;

sub error {
	my $mes = shift;
	my $date = scalar (localtime (time));
	open (LOG, ">>logfile") or die "Could not open logfile for write:\n$!\n";
	print LOG "$date\t $mes\n";
	close LOG;
}

1;