#########################################################################################################
# delete OS mails
#########################################################################################################
   
sub DEL_mail {
	my $sidadm = $_[0]."adm";
	my $command = qq( su - $sidadm -c "cat /dev/null > /var/spool/mail/$sidadm" );
	system( $command ) == 0 or die "Failed <$command>: $!";
	#system ("su - $sidadm -c /" echo //'d *//' | mail -N//"");
	}