#!/usr/bin/perl -w

use diagnostics;

# Force a warning
$foo = 1;