DB<174> use Scalar::Util qw(readonly)
  
  DB<175> sub tst { print readonly($_[0]) ? "r" : "rw" }
 
  DB<176> tst 0
r
  DB<177> tst undef
rw
   DB<179> print readonly(undef) ? "r" : "rw"
r