#!/usr/bin/perl -P -MO=Graph,-text
    
    use constant UNDEF => 0;
    
    my $test = 1;
    
    if(UNDEF){
        $test = 'Hello World';
    }   

    print "\$test => $test\n";