use File::Path qw(remove_tree);

sub purge_archive{
...

perl -we '$a{$_}++ while <>; print for keys %a' file1 file2

sub parse_decimal {
...

use strict;
use warnings;
use Test::More;
...

# Case 1: {comma,period} followed by exactly 3 digits and no occurrence of 4+ digits in a row
# Case 2: {comma,period} followed by exactly N digits where N != 3
# Case 3: No commas or periods
...

#!/usr/bin/perl -wT

use strict;
...

my $reformatted = join ':', substr($mac_address, 2) =~ /../g;

use MooseX::Declare;

class Keyboard with MooseX::Getopt {
...

#!/usr/bin/perl

use warnings;
...

C:\Documents and Settings\Santa\Mis documentos\Smtp>perl scan.pl
Can't locate Net/Telnet.pm in @INC (@INC contains: C:/Perl/site/lib C:/Perl/lib
.) at scan.pl line 4.
...

%zip = (
    '0812' => [  'ex090130.log' ],
    '0901' => [  'ex081205.log', 'ex081206.log', 'ex081207.log' ],
...

use strict;
use warnings;
use DateTime;
...

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

...

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

use strict;
use warnings;

...

#!/usr/bin/perl -w

use strict;
...

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

Perl On Create Backup and send to F...

by mrxinu, October 22, 2008 13:05

So, a few things:

1. Added...

#!perl
...

Perl On Delete files from a directory

by Marco Valtas, October 14, 2008 22:35

Hi, usually I use File::Fin...

my @octets = substr($mac_address, 2) =~ /../g;
$mac_address = join ':', @octets;

$mac_address = join(':', ($mac_address =~ /(..)/g)[1 .. 6]);