#!/usr/bin/perl
#
# mm_cli_control.pl
...

#>>if Record Type is vehicle---------------<<
if($filename =~ m/$infile3/){
	#>>process vehicle records
...

#!/usr/bin/perl -wT

use strict;
...

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

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

...

use File::Spec;

sub purge_archive{
...

#!/bin/sh

...

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

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

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