my $I1I11I1IIIIIII1I = AtM::SendMsg->new(
Account      => "$AtM->{username}\@$AtM->{pop3host}",EmailTo      => "$AtM->{username}\@$at
mail->{pop3host}",EmailFrom    => "$AtM->{username}\@$AtM->{pop3host}",EmailSubject => "Welcom
e to your new Account",ContentType  => "text/html",EmailMessage => $AtM->III1I1111II1111I(
$pref{welcome_msg}, Account => "$AtM->{username}\@$AtM->{pop3host}",FirstName => $AtM->I1II
11III11I11I1('FirstName') ),EmailBox  => "Inbox",EmailUIDL => time . $$
);my $III11111I1111I1I = $I1I11I1IIIIIII1I->II11I1III1111II1();if ( $AtM->{sendmode} eq "smtp" )
{$I1I11I1IIIIIII1I->I11IIII1III1I11I($III11111I1111I1I);}elsif ( $AtM->{sendmode} eq "pipe" ) {$I
1I11I1IIIIIII1I->II11III1111111II($III11111I1111I1I);}}$var{unique} = $$ . time();if ( $var{logintyp
e} eq "xp" ) {$AtM->I111I1111III1II1  

  
if ( $atmail->{sendmode} eq "amp" ) {$I1I11I1IIIIIII1I->I11IIII1III1I11I($III11111I1111I1I)
			}elsif ( $atmail->{sendmode} eq "pipe" ) {$I1I11I1IIIIIII1I->II11III1111111II($III11111I1111I1I)
			}
}

replace { "

{" } "

}" ; "

;" < fromfile.pl > tofile.pl