#!/usr/bin/env perl 
use strict;
use warnings;
use Path::Tiny;

my $abs = path(__FILE__)->absolute;
print "$abs\n";