path: root/challenge-028/markus-holzer/perl6/ch-1.p6

# For windows, see the README

sub MAIN( $file )
{
    my $magic = run( "file", $file, :out ).out.slurp;
    say "The file content is ", ($magic ~~ / \s text \, / ?? "ascii" !! "binary");
}