Select Code to Download

   open (my $i, "+<", $name) or warn $!;   ### FAILS HERE ###
   while (<$i>) {
...
     print $csv "$i,\n";
     print "$i,\n";
   }

sub _ce {
    print "IN CE SUB\n";
...
    print $csv "\n\nHost,Entitled CPU and RAM as of @asof,\n\n";
    return;
}