use warnings;
my $retval;

$retval = get_value_from_subroutine();

warn "Return Value $retval\n";