Select Code to Download

while (my $zeichen = getc($handle1))

while (defined ( my $zeichen = getc($handle1) ) )

if ($buffer =~ /IEND/) {
    print $handle2 $buffer;
...
    print $handle2 $buffer; ### 2
    exit;
}