undef $foo;
undef $bar{'blurfl'};
undef @ary;
undef %assoc;
undef &mysub;

return (wantarray ? () : undef) if $they_blew_it;
select(undef, undef, undef, $naptime);
