#!/usr/bin/perl

use warnings;
use warnings::unused;
use strict;

my $foo = 42;
my $bar = 43;
eval '$'.'foo++';

##</code><code>##

Unused variable my $bar at ./warntest.pl line 8.

##</code><code>##

Unused variable my $foo at ./warntest.pl line 7.
Unused variable my $bar at ./warntest.pl line 8.
$foo++%

##</code><code>##


##</code><code>##

Unused variable my $bar at ./warntest.pl line 8.