Select Code to Download

        print $csv "$lpname\n";
        print $csv '*' x length($lpname),"\n";
...
            print $csv "$i,\n";

    print $csv "\n\nHost,Entitled CPU and RAM as of @asof,\n\n";

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