Select Code to Download

#! perl -sw
use strict;
...
        print "\t\t",!cmpStr($x,$y) ? 'Same' : 'Diff', $/;
    }
}

C:\test>test
                  {$^W=0; ($x eq $y)    !cmpStr($x,$y)
...
undef -v- undef :       Same            Same

 1:13:29.67 C:\test>