alexm

#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use Getopt::Long;

my %opt = ( 'list'    => sub { say $_[0] } );
GetOptions( 'list=s'  => sub { $opt{ $_[0] }->( $_[1] ) } );

alexm

#!/bin/sh
# markdown as shell script

## setup

	set -e
	set -x
	FOOBAR="foobar"

## step 1

alexm

# Perl 6
use v6;

my @Barcelona = < Barcelona >;
my @PerlMongers = < Perl >;

# Define Camelia binary operator: »ö«
# https://github.com/perl6/mu/raw/master/misc/camelia.txt
# Takes a pair from the operand arrays and puts a heart in the middle
sub infix:<»ö«> {

alexm

#!/usr/bin/perl

use strict;
use warnings;

my $SERVER = 'imap.example.com';
my $USER   = 'user.name@example.com';
my $PASSWD = '***';
my $PORT   = 993;
my $SSL    = 1;

alexm

#!/usr/bin/perl
#
# vots-pirates.pl
#
# Requeriments:
# sudo apt-get install libnotify-bin libwww-perl
#

use LWP::Simple;