tryperl

#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 

tryperl

#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 

tryperl

#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 

tryperl

#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\n";


print "Hello World!\n";

tryperl

#Created by tryperl.com
use strict;
use warnings;
use URI;
use Web::Scraper;


print "Hello World!\n";
my $uri = "http://price.pcauto.com.cn/26037/news0.html";
my $scraper = scraper {

tryperl

#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 

tryperl

#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 

tryperl

#Created by tryperl.com
use strict;
use warnings;

print "Go :D";

tryperl

#Created by tryperl.com
no strict;
no warnings;

my $x = 3

if (my $x = 3;)
    print "True"
}
    else {

tryperl

#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