#!/usr/bin/perl

# die folgenden Zeilen sollten in jedem Programm
# Pflicht sein!!
use strict;
use warnings;

# User muss beim Start die Datei angeben
# mit ':encoding(...)' gibt man das Encoding der Datei an
# mit '<' wird Datei gelesen
open my $in_h, '<:encoding(utf-8)', $ARGV[0] or die $!;

# Zieldatei soll iso-8859-1 sein
open my $out_h, '>:encoding(iso-8859-1)', $ARGV[0].'.iso88591' or die $!;
while( my $line = <$in_h> ){
    print $out_h $line; # Perl macht die Umwandlung automatisch
}
close $out_h;
close $in_h;