Select Code to Download

    $ export PERL5LIB=$HOME/priv/lib
    $ perl -My=mail,A,:date,frob -le '...'
    Unimplemented at -e line 1.

    perl -le 'print scalar localtime pop' 1468404921
    perl -My -le 'plt pop' 1468404921

package y;
use strict;
...
use Devel::Peek;
# other modules...
EOH

{
    my $append = 0;
...
        }
    }
}

    perl -My=append,stime -e 'my$t=localtime(shift||time);$t'

sub stime {
my $t = localtime(shift @ARGV || time);
$t;
}

my($m,$z);
$m=pack"B32",pop=~'/'x$';
printf"$` network %vd broadcast %vd netmask %vd\n",($z=eval$`)&$m,$z|~
+$m,$m