This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#Created by tryperl.com | |
use strict; | |
use warnings; | |
print "Go Ahead and edit me!"; | |
print "Once you are done editing, click SAVE to save changes :D"; | |
# print <>; #you can use the STDIN to put data into your program |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#Created by tryperl.com | |
use strict; | |
use warnings; | |
print "Go Ahead and edit me!"; | |
print "Once you are done editing, click SAVE to save changes :D"; | |
# print <>; #you can use the STDIN to put data into your program |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#Created by tryperl.com | |
use strict; | |
use warnings; | |
while(1) { | |
print "fuck this"; | |
} | |
1; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use CGI; | |
use URI::Escape; | |
print "Content-type: text/html\n\n"; | |
my $query = new CGI; | |
my $json = $query->param("j"); | |
$json =~ s/\%26/&/ig; | |
$json =~ s/\\'/%27/ig; #if they add their own escape to the apos, we strip it and convert |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#Created by tryperl.com | |
use strict; | |
use warnings; | |
print "Go Ahead and edit me!"; | |
print "Once you are done editing, click SAVE to save changes :D"; | |
# print <>; #you can use the STDIN to put data into your program |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#Created by tryperl.com | |
use strict; | |
use warnings; | |
print "Go Ahead and edit me!"; | |
print "Once you are done editing, click SAVE to save changes :D"; | |
# print <>; #you can use the STDIN to put data into your program |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#Created by tryperl.com | |
use strict; | |
use warnings; | |
print "Go Ahead and edit me!"; | |
print "Once you are done editing, click SAVE to save changes :D"; | |
# print <>; #you can use the STDIN to put data into your program |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#Created by tryperl.com | |
use strict; | |
use warnings; | |
print "Go Ahead and edit me!"; | |
print "Once you are done editing, click SAVE to save changes :D"; | |
# print <>; #you can use the STDIN to put data into your program | |
print "Content-type: text/html\n\n"; | |
a = a + 5; | |
print "test"; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#Created by tryperl.com | |
use strict; | |
use warnings; | |
print "Go Ahead and edit me!"; | |
print "Once you are done editing, click SAVE to save changes :D"; | |
# print <>; #you can use the STDIN to put data into your program |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#Created by tryperl.com | |
use strict; | |
use warnings; | |
print "Go Ahead and edit me!"; | |
print "Once you are done editing, click SAVE to save changes :D"; | |
# print <>; #you can use the STDIN to put data into your program |