use strict;
use warnings;

use Path::Tiny ();

my $me     = Path::Tiny::path( $0 )->basename();
my $abs_me = Path::Tiny::path( $0 )->realpath();

print "1) original: $0\n";
print "2) short   : $me\n";
print "3) long    : $abs_me\n";