#!/usr/bin/perl
use strict;
use warnings;

use PadWalker();
use Data::Dumper();

local $SIG{'__WARN__'} = sub {
	if($_[0] !~ /^Use of uninitialized value/) {
		print @_;
	} else {
		# If there are objects, the output can be VERY large when you increase this
		local $Data::Dumper::Maxdepth = 2;
		# takes all lexical variables from caller-nemaspace
		my $possibles = Data::Dumper::Dumper({ %{PadWalker::peek_my(1)}, %{PadWalker::peek_our(1)} });
		$possibles ne "\$VAR1 = {};\n" ? ($possibles =~ s/^.*?\n(.*)\n.*?\n$/$1/ms) : ($possibles = '');
		print STDERR "Warning: " . join(', ', @_) . "Possible variables are:\n$possibles\n";
	}
};

our $GLOBAL_VARIABLE = 'global';
sub mySub {
	my $t = undef;
	my $s = "regular output";
	print " $s $t ";
}
mySub();