use Rex;
use warnings;
warn 'This is warning';
my $warn = 'warn' . undef;
task 'test', sub { };