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

@fields = ("name", "description", "other_name", "etc");
print "UPDATE tablename";
for (@fields) {
...

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

#!/usr/bin/perl
...

#!/usr/bin/perl -wT

use strict;
...

#!/usr/bin/perl

use warnings;
...

use Time::DaysInMonth;

# Get todays date in the form of YYMMDD
...

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

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

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

...

#!/usr/bin/perl -w

use strict;
...

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

use File::Spec;

sub purge_archive{
...

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

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

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

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

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

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

use Cache::FileCache;

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

#!/usr/bin/perl

use LWP::Simple;
...