#!/usr/bin/perl -w
warn;
$@ = 'Huh?';

warn;
warn '';