perl -le 'my $x = ord(1,2);print $x';
50