#!/usr/bin/perl -w

use strict;

print test(), $/;

sub subtest { return 4 }

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

    # continue
    return 'false';
}