#!/usr/bin/perl

use strict;
use Encode;

die "Usage: $0 latin1.file > utf8.file"
    unless ( @ARGV == 1 and -f $ARGV[0] );

open( my $fh, "<", $ARGV[0] ) or die "$ARGV[0]: $!";
{
    local $/;
    $_ = <$fh>;
    close $fh;
}

my $utf8;

eval { $utf8 = decode( "utf8", $_, Encode::FB_CROAK ) };

if ( $@ ) { # input was not utf8
    $utf8 = decode( "iso-8859-1", $_, Encode::FB_WARN );
}
binmode STDOUT, ":utf8";
print $utf8;