Select Code to Download

#!/usr/bin/perl -w
use strict;
...
outputs: 
Constant subroutine TEST redefined at ...
if(0)