or download this
#! perl -slw
use strict;
...
Attempt to free unreferenced scalar: SV 0x19e1fdc during global destru
+ction.
Attempt to free unreferenced scalar: SV 0x19749fc during global destru
+ction.
Attempt to free unreferenced scalar: SV 0x2b26134 during global destru
+ction.