$a = eval { warn "some warning\n"; };  # "some warning" to STDERR

print "a=$a\n";   # 1 ('warn' succeeds)
print "@=$@\n";   # <undefined>