Select Code to Download

{
    my $FIXED_STRING = 'fixed_string';
...
    do_something($q);
    print "Done computing\n"
}

use feature qw( state );

...
        }
    }
}