#!/usr/bin/perl
use strict;
my $rv = 42 for (1);
print "rv unquoted: '", $rv, "'\n";
print "rv quoted: '$rv'\n";