Something everyone has missed thus far is that fred() will always return a false value. The if ($TV) statement will always fail, so if the subroutine gets past the open statement, there will still be an implied return of the last statement result, namely false.

The die will always be called.