1
2
3
4

#!/usr/bin/perl -w

use strict;
...

1
2
3
4

#!/usr/bin/perl  
# Load the Net::FTP package 
use Net::FTP;  
...

1
2
3
4

#!/usr/bin/perl  
# Load the Net::FTP package 
use Net::FTP;  
...

1
2
3
4

use File::Spec;

sub purge_archive{
...

1
2
3

#!/usr/bin/perl -w
package Bdecode;
...

1
2
3
4

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

1
2
3
4

#!/usr/bin/env perl
#What follows is the demented codings of someone bored.
package upsidedown;
...

1

perl -le'*{$#_}=sub{world},s;"*;$,=$";e,*{$"}=sub{Hello},print$_--->(),&$_'

1
2
3
4

#!/usr/bin/perl -w

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

1

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

1
2
3
4

use Cache::FileCache;

$cache = new Cache::FileCache( );
...

1
2
3
4

#!/usr/bin/perl

use LWP::Simple;
...