eval.erl

%%!

main([Path]) ->
    %Path = get_path(),
    {ok, ExprBin} = file:read_file(Path),
    % confirm it is UTF-8
    io:format("~w~n", [ExprBin]),
    Expr1 = unicode:characters_to_list(ExprBin),
    Expr2 = binary_to_list(ExprBin),
    io:format("~w~n", [Expr1]),
    io:format("~w~n", [Expr2]),
    {ok, Toks, _} = erl_scan:string(Expr1),
    {ok, Ast} = erl_parse:parse_exprs(Toks),
    {value, Result, _} = erl_eval:exprs(Ast, []),
    io:format("~p~n", [Result]).

gistfile1.txt

λ echo '"héllo".' >test.txt | escript priv/erlang/eval.erl test.txt
[34,104,233,108,108,111,34,46,10]
[34,104,195,169,108,108,111,34,46,10]
"hlo"