Script to find who is using UNDO space in Oracle

The script will list the users who are using the UNDO space and how many block they are using.

SELECT a.sid, a.username, b.used_urec, b.used_ublk
  FROM v$session a, v$transaction b
 WHERE a.saddr = b.ses_addr
 ORDER BY b.used_ublk DESC;