#!/usr/bin/perl

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

my $foo = 42;
my $bar = 43;
exit(eval q[$foo++]);