read e-mail with attach in Perl

Muy rico este lenguaje, es super poderoso en lo que a web se refiere y te permite hacer cosas de manera muy simple. Por ejemplo aqui va el código para leer el attach de un email que es entregado por un pipe al script.

#!/usr/bin/perl -w
#use's necesarios para las librerias de manejo de email
use Email::MIME;
use Email::MIME::Attachment::Stripper;

#recibe el email desde la entrada estandar, por ejemplo si tienen el source de un
#correo, le hace un cat y lo pasan por pipe. p.e: cat mail | perl script.pl
{local($/) = undef;
$email = ; }

$buffer = Email::MIME->new($email);
$stripper = Email::MIME::Attachment::Stripper->new($buffer);
my Email::MIME $msg = $stripper->message;
@attachments = $stripper->attachments;
#devuelve un hash con la info del attach en donde lo indexado por payload es el body del attach
$attach = $attachments[0]{'payload'};

fácil.. :)

dato útil

Siempre he tenido problemas para ordenar mi ropa, tal vez era porque no habia visto este video
http://www.cs.hut.fi/~demi/cloth_folding.mpeg