1
2
3

#!/usr/bin/perl
use strict;
...

1
2
3
4

#!/usr/bin/perl
use strict;
use warnings;
...

1
2
3
4

#!/usr/bin/perl -w

# This script use the Net::Ping Module to ping an 
...

1

perl -e "$_='doHole klrWlg';$_.=$1,print$2while s/(..)(.)//;"

1
2
3
4

#!/usr/bin/perl -w

# This scrit use the Net::Ping Module to ping an 
...

1
2
3
4

<td>
  

...

1

curl -s http://www.cnn.com | perl -ne 'm/>([^<>]+?)<\// && print$1."\n"' 

1

curl http://www.cnn.com | perl -ne 'm/>([^<>]*?)<\// && print$1."\n"' | sed -e '/^$/d'

1

curl http://www.cnn.com | perl -ne 'm/>([^<>]*?)<\// && print$1."\n"'

1
2
3

 
...

1
2
3
4

#!/usr/bin/perl

use strict;
...

1
2
3

#!/usr/bin/perl
...

1
2
3
4

#!/usr/bin/perl

use LWP::UserAgent;
...

1
2
3
4

use LWP::Simple;
$word = $ARGV[0];
for (1..25) {
...

1
2
3
4

#!/usr/bin/perl

use strict;
...