Hello dearest Monks,

use LWP::Simple;
@a = <>;
getprint("http://LeWebsite.com?a=".($a[0])."&b=".($a[2]));
[download]

-a digit

-some bollox that You can skip in the program execution, but it will have to bypass/workaround/skip this line

-some more or less random characters, that have to be passed as argument.

Thank You in advance guys.

Update:

I found a workaround for chomp- I do it "serverside", my script on the site checks for newline symbols and replaces them

I wrote a Mandelbrot set generator. It works on Windows ActivePerl 5.20.2 x64, but I haven't tried it on *nix. It outputs a smoothed, anti-aliased fractal image to 24-bit .bmp file. For optimizations, it takes advantage of symmetry; it skips the cardoid, the main bulb, and the line across y=0; and it checks for cycles when the iteration count gets high. On my computer (2.40GHz i5-2430M), it takes about 10 minutes to generate a 1500x1000 image.

The code's designed to look like the set, of course. It takes user input to determine the size of the image and the outfile, i.e.:

C:\Users\Kevin>mandelgen.pl 1200 mandel.bmp
Generating fractal with dimensions 1200 by 800...
[==================================================]
Saving fractal to mandel.bmp... Done!
[download]

If the given pixel width isn't divisible by 12, the program subtracts until it is.

for$b(-25..25){for$a(-50..29){$x=$a/21;$y=$b/15;print$b?chr:chr^chr
ord(substr'<6C}'.1x29 .'[FDEq2?@E96Cqa6C=q924',$a)-49;$_=30;($y,$x)
=(2*$x*$y+$b/15,$x*$x-$y*$y+$a/21)while$x*$x+$y*$y<9&$_++<95}$_=10}
[download]

So let's say you are on a *nix machine and you need an application that echos what you type. And let's further say that you want to use perl, python, ruby and shell to do it. I bring you convoluted echo. A perl script the writes and executes a python script that's and executes a ruby script which writes and executes a shell script to echo your command line arguments.

Happy Memorial Day

#!/usr/bin/perl
my $echo = q{};

open my $py, '>', 'ce.py' or die "Cannot open ce.py: $!\n";
    $py->print("#!/usr/bin/python\n\n");

    $py->print("import os\n\n");

    $py->print("fo = open(\"ce.rb\",\"w\")\n\n");

    $py->print("fo.write(\"#!/usr/bin/ruby\\n\")\n");
    $py->print("fo.write(\"out_file = File.new(\\\"ce.sh\\\", \\\"w\\\
+")\\n\")\n");
    $py->print(q{fo.write("out_file.puts(\"#!/bin/sh\\n\\necho $*\\n\\
+")\n")});
    $py->print("\n");
    $py->print(q{fo.write("out_file.close\n\n")});
    $py->print("\n");
    $py->print("\n");


foreach my $a (@ARGV) {
    $echo .= " ".$a;
    # $py->print( " $a ");
}
    $py->print(q{fo.write("system(\"/bin/sh ce.sh });
    $py->print(" $echo  ");
    $py->print(q{\")\n")});

    $py->print("\nfo.close()\n");

    $py->print("os.system(\"/usr/bin/ruby ce.rb\")\n");

close $py;

system("/usr/bin/python ce.py");
[download]

$_  =q#( $.=" 20 2c4a 506 175"   )=~s  {[ \W] ?([ \w] )\s ?(\w ) }{ $
|= 1 ; "0x$   1$2  ".( 5 - (++$  b)?   " ," :"..  " ) }xeg ;$ l=~ s {
 \s}{ ;  ""}exg;@t=split //, "\44_  =q\43$_\43; s/\134\156//xg;  eval
".($"x2)."\43TSR'15";map{ $ a[$c /5] [$c++%5] =chr } eval $ .; do {$s
+= 1; my $ z; if ($t  [$s ] eq  $"){($ d++% 2 ?$x:  $ y )=$ s- $e;$e=
$s+ 1;if( !($ d-2) ){$ d=0; push @j,$ a[$ x ][$ y] }   } }while@j-25;
 print  join $ /,  unpack ("( A69)*" , join"" ,@ t ), join "",$ /, (m
ap{( "\43", @$_,$ /) }@ a),"\n\43 ",@j,$/;#; s/\n//xg;  eval  #TSR'15
[download]

@z=split(//,BGu6pCozwKzR);@y=qw(zlz hqa zuo reg rqz fpx 72 26 25 53 25
+ 06);while(@z){@a=split(shift@z,crypt(shift@y,pop@y));@g=split(pop@z,
+$a[1]);print $g[0]}
[download]

$m=250;for(2..$m){for($a=$_*2;$a<=$m;$a+=$_){$c[$a]++}print"$_,"x!$c[$_]}

eval'[]->Jk',$^X=~m;(?:.*[\\/])?([^\W\d]+);;$==ord('?'^':'),$,=q**
,*_=[map+chr,$[..$=<<$=],*_={map{;$_,++$=}grep/(?=\W)[$"-~]/,@_},*
_=sub{map{join$,,@_[@_{split$,,$_}]}+$,."->]'","!?;'(&}","(! .\\}"
},*_=[_(split$,,$@),"\u$1"],*_=\"@_[$[,!!!$[,-!$[,$#_^!$[],",print
[download]

I would love to see it again.

$i++;while(@p<50){$i++;&d;print"$i,"x!$x}sub 
d{for(@p){if($x=(!($i%$_))){return}}push@p,$i}
[download]

$e=$k=$f=$a=$m=$n=1;@y=split//,"mpqeyn";$y=$p=$a+$m+$n;push@mn,pop@y;u
+nshift@mn,shift@y;while($#p<14){$a++;@b=@p;&d}while($f>2**-$p[$#p]){$
+i+=2;$r=$i%4;$f=4/($i*($i+1)*($i+2));$p+=$f*($r-1);if($i/2<$p[$p[4]])
+{eval"\$$mn[$r/2]+=\$$mn[!$r]";$y=$y/2+1/$y;eval"\$q=\$$mn[$r/2]/\$$m
+n[!$r]";$k*=($i/2);$e+=1/$k}}for$o(@y){print"<br>$$o"}sub d{while(@b)
+{$x=!($a%shift@b);if($x){return}}push@p,$a;print"$a,"}
[download]