#!/usr/bin/perl -w

use strict;

print test(), $/;

sub subtest { return 4 }

sub test {
    return $_ if ( local $_ = subtest() );

    # continue
    return 'false';
}
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.