#!/usr/bin/perl
#replace_all

use Encode qw(from_to);

my $inPATH = $ARGV[0];
&from_to( $inPATH, 'utf-8', 'euc-jp' );	#'shiftjis' 'utf-8'

#my ( $folder, $file )	= $inPATH =~ m!(.*)/(.*?)$!;

print `/usr/bin/iconv -c -f UTF-8-MAC -t UTF-8 $inPATH`;