diff --git a/scripts/cpanflute b/scripts/cpanflute
index a95f597..b2e9abd 100755
--- a/scripts/cpanflute
+++ b/scripts/cpanflute
@@ -10,7 +10,7 @@ my $MainDir = '/tmp/cpan';
 
 # set default options, then get options
 my %options=();
-$options{'email'}=(getpwuid($<))[0] . "\@redhat.com" ;
+$options{'email'}=(getpwuid($<))[0] . "\@altlinux.com" ;
 GetOptions(\%options, "email=s", "n=s", "create") || exit 1;
 
 my $InputFile = $ARGV[0];
diff --git a/scripts/cpanflute2 b/scripts/cpanflute2
index 23d6bed..07b1895 100755
--- a/scripts/cpanflute2
+++ b/scripts/cpanflute2
@@ -19,7 +19,7 @@ die_usage() unless $fullname;
 
 my $tarball = basename($fullname);
 my $create = $options{create} || '';
-my $email = $options{email} || (getpwuid($<))[0] . '@redhat.com';
+my $email = $options{email} || (getpwuid($<))[0] . '@altlinux.com';
 my $outdir = $options{outdir} || './';
 my $tmpdir = $options{tmpdir} || '/tmp';
 my $noarch = $options{noarch};