use warnings;
my $retval = 0;

warn "Return Value $retval\n";

##</code><code>##

use warnings;
my $retval;

warn "Return Value $retval\n";

##</code><code>##

use warnings;
my $retval;

$retval = get_value_from_subroutine();

warn "Return Value $retval\n";