#!/usr/bin/perl -P -MO=Graph,-text

    my $test = 1;

    #if 0
        $test = 'Hello World';
    #endif

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