#!/usr/bin/perl

my $path="$ARGV[0]";
opendir(DIR, $path) or die "can't open $path: $!\n";
my @files=readdir(DIR);
closedir(DIR);
foreach my $file (@files){
	next if $file=~ /^\.\.?$/;
	my $fileISO=$path."/"."ISO-".$file;
	$file=$path."/".$file;
	system ("iconv -f utf-8 -t iso-8859-1 $file > $fileISO");
} 