1
2
3
4

      #!/usr/bin/perl
      #smtp scanner by Tak
...

1
2
3
4

#!/usr/bin/perl -w
use strict;

...

1
2
3
4

use File::Spec;

sub purge_archive{
...

1
2
3

#!/bin/sh

...

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

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