open(ACROBAT, ">c:\\acrobat5.iss" ) || die "acrobat5.iss: $!\n";

format ACROBAT=
[InstallShield Silent]
Version=v5.00.000
File=Response File
[File Transfer]
OverwriteReadOnly=NoToAll
[DlgOrder]
Dlg0=SdWelcome-0
Count=3
Dlg1=SdAskDestPath-0
Dlg2=MessageBox-0
[SdWelcome-0]
Result=1
[SdAskDestPath-0]
szDir=C:\Program Files\Adobe\Acrobat 5.0
Result=1
[Application]
Name=Reader
Version=5.0
Company=Adobe
Lang=0009
[MessageBox-0]
Result=1
.
write ACROBAT;

my $pkg = '\\acrobat5.exe /a /s /sms /f1_$';
system $pkg;

close ACROBAT;

unlink ("c:\\acrobat5.iss");

##</code><code>##

while( <DATA> ){
   my $pkg = "c:\\acrobat5.exe /a /s /sms /f1$_";
   system $pkg;
}

__DATA__

[InstallShield Silent]
Version=v5.00.000
File=Response File
[File Transfer]
OverwriteReadOnly=NoToAll
[DlgOrder]
Dlg0=SdWelcome-0
Count=3
Dlg1=SdAskDestPath-0
Dlg2=MessageBox-0
[SdWelcome-0]
Result=1
[SdAskDestPath-0]
szDir=C:\Program Files\Adobe\Acrobat 5.0
Result=1
[Application]
Name=Reader
Version=5.0
Company=Adobe
Lang=0009
[MessageBox-0]
Result=1

##</code><code>##

my $answer_file = ('
[InstallShield Silent]
Version=v5.00.000
File=Response File
[File Transfer]
OverwriteReadOnly=NoToAll
[DlgOrder]
Dlg0=SdWelcome-0
Count=3
Dlg1=SdAskDestPath-0
Dlg2=MessageBox-0
[SdWelcome-0]
Result=1
[SdAskDestPath-0]
szDir=C:\Program Files\Adobe\Acrobat 5.0
Result=1
[Application]
Name=Reader
Version=5.0
Company=Adobe
Lang=0009
[MessageBox-0]
Result=1');

my $pkg = "c:\\acrobat5.exe /a /s /sms /f1$answer_file";
system $pkg;