1: #!/usr/bin/perl
   2: {local(*STDIN);pipe(DATA,STDIN);select STDIN;$_=substr(scalar localtime $|,
   3: 0 =>10) ^ join '',map{chr}split(/\s/,q/50 19 1 82 61 17 11 73 93 86/);print
   4: reverse"\n",$_;$q=q/\/*\//;eval $ q;BEGIN{*o=[2,6,1,7,0,4,3,5,8];}@ q=split
   5: /\s/,$ @;print $q[3] ."\n";$ q=\substr $_,5 ,5;$ a=lc join"", reverse split
   6: '',('eno');$$q=$a;print;print"\n";print chr(116), lc "\x4F\x0A" ;print lc((
   7: crypt('foly','aN')=~m\(...)(?=...*?)\)[0])."\n";$i=((int(rand(9))-4)*3)**2;
   8: while($i>9){my $n;map{$n+=$_;}split('',"$i");$i=$n;}$i+=($i<5)?5:-4;$i=$i*2
   9: -6;map {print chr($i+=$_);}(107,6,-3,1,-14,7,10,-17,14,-105);print join('',
  10: grep {$|^=1 } reverse split('',"\nare"),qw\o f f\);}@ qq=sort( <DATA>);**=\ 
  11: '420657138' ;for(sort @ o){$c[substr($*,$ { '**'}++,1)]=$_};map{chomp}@ qq;
  12: splice(@qq,@qq,0,("\n")x 2);print STDOUT"@qq[@c]";exit;