#! /usr/bin/env perl6

sub MAIN ($file-in, $file-out = "")
{
  $file-out
    ?? spurt $file-out, slurp $file-in, enc => "latin1"
    !! say slurp $file-in, enc => "latin1";
}