#!/usr/bin/perl -l

    ;print $[
    ;print not undef
    ;print chop if$_=ord$"
    ;print hex atan2 $#,$#:
    ;print ~~~~ split //=> four
    ;print oct$]
    ;print $=/ord$/
    ;print length reverse =>
    ;print sqrt oct ord double
    ;print ${}} =( )= localtime
    ;print !$,,$|