#!/usr/bin/perl --
# foo.pl
use strict; use warnings; use Path::Tiny qw/ path /;
Main( @ARGV );
exit( 0 );
sub Main {
  my( @files ) = @_;
  for my $file ( @files ){
    my $stuff = path( $file )->slurp_raw;
    ...;
  }
}