{
local $SIG{__WARN__} = sub { }; # Supress warnings
getopts("dei")
or print STDERR "TRALALALALA\n";
}
Or you could even embed the "TRALALALALA" in the warn handler:
{
local $SIG{__WARN__} = sub { print STDERR "TRALALALALA\n" };
getopts("dei");
}