use v5.12;
use warnings;
use Cwd qw(abs_path);

say 'abs_path($0): ', abs_path($0);