#!/usr/bin/perl -w

$SIG{__WARN__} = sub { 
        local $_ = shift;
        print STDERR unless /Use of uninitialized value/;
};

my $f;

print "no warning here -->$f<--",$/;

warn "woot! other warnings here...";