#!/usr/bin/env perl 

use v5.030;
use warnings;
use Data::Dumper;
use FindBin qw($RealBin);
use Path::Tiny;


my ($prefix,$website,$environment,$basedir);
BEGIN {

# truncate envelope
$ENV{PATH} = '/bin:/usr/bin'; 
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};   # Make %ENV safer
   $prefix = "/home/hogan"; #needs to toggle with
   #$prefix = "/home/fred"; #
   $website = 'merrillpjensen.com';
   
   use FindBin qw($RealBin);
   if ($RealBin =~ m!$prefix/$website/(dev|test|prod)!) {
      $environment = $1; # This is now untainted!
      $basedir = "$prefix/$website/$environment";
   }
   else {die "Bad environment '$1'"; }
}


#my $tt = Template->new({INCLUDE_PATH => "$basedir/templates"});

# now I have Path::Tiny
my $file_name="1.env.txt";
my $tiny_path=path($basedir, ,'lib',$file_name)->touchpath;
say "tiny path is $tiny_path";
my $d =  Data::Dumper->new( [ \%ENV ], ['*ENV'] )->Sortkeys(1)->Useqq(1)->Dump();
my $return = $tiny_path->spew( $d);

say "real bin is  $RealBin";