#!/usr/bin/env perl

use strict;
use warnings;
use Path::Tiny;
use Try::Tiny;
use autodie qw(:all);
use feature qw(say);

my $file = shift;

try {
    say path($file)->slurp_utf8;
}
catch {
    print $_;
};

__END__