Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
use overload '""' => 'stringy';
sub new {bless {}, __PACKAGE__}
sub stringy { print "OK!\n"}
  2. or download this
    Useless use of string in void context at test.pl line 4.
OK!