Reunion social de Octubre de 2009

#!/usr/bin/perl

use strict;
use warnings;

our $social_meeting = {
    where => 'El rincon guay',
    when  => 'Miercoles 21 de Octubre a las 19:30',
    who   => [qw/ diegok roberto /, (rand > .05 ? 'salva' : ())]
};

$social_meeting->{where} = { name => $social_meeting->{where},
                             former_name => 'El Rincon de Cambre',
                             address => 'Embajadores 62, Lavapies, Madrid, Spain' };

$social_meeting->{where}{name} =~ s/\b(\w)/uc $1/ge;

push @{$social_meeting->{who}}, 'deibyz';

¿Te apuntas?

Mis etiquetas:
 
Etiquetas populares:
 
Powered by Catalyst