CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 21:17:38 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=fc34b9efd13b901dbb93e0771fbfcc6896580d467c28ec1a695547793d788d66a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22FI-NMwZN-h7OkG7prHvPuRLW8WNtksV6%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d162a67f0525e0-BLR
#!/usr/bin/env perl use v5.14;use strict;use warnings;use Data::Dumper - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/env perl
- use v5.14;
- use strict;
- use warnings;
- use Data::Dumper;
- my $wbuf1=3;
- my $wbuf2=3;
- my $first;
- my $wtr1;
- my $wtr2;
- print "start\n";
- $first = sub {
- my $done_f = shift;
- $wtr1 = sub {
- print "start wtr1\n";
- my $done_1 = shift;
- my $mbuf=$wbuf1;
- print "cb $wbuf1 $mbuf\n";
- $wbuf1--;
- if ( $wbuf1 ) {
- print "cb wbuf1\n";
- $wtr1->($done_1);
- } else {
- print "cb undef\n";
- undef $wtr1;
- $done_1->();
- print "after exit\n";
- }
- print "return wtr1\n";
- print "cb $wbuf1 $mbuf\n";
- };
- $wtr2 = sub {
- print "start wtr2\n";
- my $done_2 = shift;
- my $mbuf=$wbuf2;
- print "cb $wbuf2 $mbuf\n";
- $wbuf2--;
- if ( $wbuf2 ) {
- print "cb wbuf2\n";
- $wtr2->($done_2);
- } else {
- print "cb undef\n";
- undef $wtr2;
- $wtr1->($done_2);
- print "after exit\n";
- }
- print "return wtr2\n";
- print "cb $wbuf2 $mbuf\n";
- };
- $wtr2->( # Start !!!
- sub {
- my $done_cb = shift;
- print "exit $wbuf1 $wbuf2\n";
- }
- );
- };
- $first->();
- print "stop\n";
Tags:
closures
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐✅ Marketplace Glitch ✅ Working ✅ NEVER SEEN...
JavaScript | 3 sec ago | 0.25 KB
-
📝 Crypto Swap Glitch ✅ Working
JavaScript | 3 sec ago | 0.24 KB
-
⭐⭐⭐MAKE $9OO INSTANTLY D M⭐⭐
Java | 4 sec ago | 0.10 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ 7
JavaScript | 13 sec ago | 0.25 KB
-
⭐⭐⭐Swapzone.io Glitch (Working)⭐⭐
Java | 15 sec ago | 0.10 KB
-
📝 EASY MONEY GUIDE ✅ Working
JavaScript | 18 sec ago | 0.24 KB
-
Free Crypto Method (NEVER SEEN BEFORE)⭐⭐ 1
JavaScript | 22 sec ago | 0.25 KB
-
📌 ChangeNOW Exploit
JavaScript | 27 sec ago | 0.24 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand