gistfile1.txt

perl -Mwarnings -le 'print for keys %warnings::Offsets'\
  | xargs -n1 perl -Mwarnings -e '
    BEGIN {
        $SIG{__WARN__} = sub { $W = 1 };
        warnings->unimport( $ARGV[0] )
    }
    print "foo" if my $x = 0E0;
    END { print $ARGV[0] if ! $W } '

# syntax
# all