--- bin/csv2yaml.pl	2009/03/16 10:02:46	21
+++ bin/csv2yaml.pl	2009/03/16 13:54:50	25
@@ -11,14 +11,14 @@
 use File::Slurp;
 use YAML qw/DumpFile/;
 use Text::CSV;
-use Encode qw/decode/;
+use Encode qw/from_to/;
 
 my $debug = 0;
 
 my $path = shift @ARGV || die "usage: $0 file.csv\n";
 
 my $csv = read_file( $path );
-$csv = decode('utf-16', $csv);
+from_to($csv, 'utf-16', 'utf-8');
 
 my @columns;