#!/usr/bin/perl
open(STDIN, '<', "/dev/null");
for my $f (@ARGV) {
	$test = $f;
	if (!utf8::decode($test)) {
		$F = $f;
		utf8::encode($F);
		system {"/bin/mv"} qw(mv -i --), $f, $F;
}	}