Un simple programa en Perl para leer el correo usando Gmail.
Una imagen
El codigo
#!usr/bin/perl
#Gmail Inbox 0.1
#Version Tk
#Coded By Doddy H
#Modules
#ppm install http://www.open.com.au/radiator/free-downloads/Net-SSLeay.ppd
#http://search.cpan.org/~sullr/IO-Socket-SSL-1.54/SSL.pm
#http://search.cpan.org/~fays/GMail-Checker-1.04/Checker.pm
use Tk;
use Tk::HList;
use Tk::ROText;
use GMail::Checker;
use HTML::Strip;
if ( $^O eq 'MSWin32' ) {
use Win32::Console;
Win32::Console::Free();
}
my $yeahfucktk = MainWindow->new();
$yeahfucktk->title(
"Gmail Inbox 0.1 || Coded by Doddy H || Status : <None>");
$yeahfucktk->geometry("870x220+20+20");
$yeahfucktk->resizable( ...