use Data::Dump qw/ dd /; 
use Path::Tiny qw/ path /; dd( path('intrepid.pl')->slurp_raw );