perl -MIPC::Cmd=can_run,run -MHTTP::Tiny -le'@c=({wget=>"wget -O-"},{curl=>"curl"});$u=shift;$r=HTTP::Tiny->new->get($u);if($r->{status}==599){($a,$b)=%{$c[rand@c]};if(my $cmd=can_run($a)){if(scalar run(command=>"$b $u",buffer=>\my $data)){print"$data\n$cmd"}}}else{print"$r->{content}\ntiny"}' "https://www.perlmonks.org"


##</code><code>##

perl 
-MIPC::Cmd=can_run,run 
-MHTTP::Tiny 
-le'
@c=({wget=>"wget -O-"},{curl=>"curl"});
$u=shift;
$r=HTTP::Tiny->new->get($u);
if($r->{status}==599){
 ($a,$b)=%{$c[rand@c]};
 if(my $cmd=can_run($a)){
  if(scalar run(command=>"$b $u",buffer=>\my $data){
   print"$data\n$cmd"
  }
 }
}
else{print"$r->{content}\ntiny"}' 
"https://www.perlmonks.org"