Escolha um entre os 4 clássicos:
A IBM vai premiar as 3 programações mais originais e criativas! inscrições |
Mas oi?
--
APPEAL:
listen (please, please);
open yourself, wide;
join (you, me),
connect (us, together),
tell me.
do something if distressed;
@dawn, dance;
@evening, sing;
read (books, $poems, stories) until peacful;
study if able;
sort your feelings, reset goals, seek (friends, family, anyone);
do*not*die (like this)
if sin abounds;
keys (hidden), open (locks, doors), tell secrets;
do not, I-beg-you, close them, yet.
accept (yourself, changes),
bind (grief, despair);
require truth, goodness if-you-will, each moment;
select (always), length(of-days)
#listen (a perl poem)
#Sharon Hopkins
#rev. June 19, 1995Estranho++
A que eu mais gosto é essa, que fizeram em 2005:
----------------------------------
#!/usr/bin/perl
my $eyes = "closed";
my $heart = "aching";
my $beloved = "gone";
no warnings;
my $love = ( );
open MY,"mind";
foreach ($love) {
open MY,$eyes;
tell my $mind or open my $eyes;
}
do not $fear and do not die;
$i; die "because i love you\n";
do { $i; sleep($_) } while ( $awake );
warn "$me" if ($i == $wrong);
bind my $love, $dear and do not exit;
for (my $world = "dark") {};
for (my $eyes = "blind") {};
----------------------------------
Ao executar, exibe "because i love you" na tela :)
[]s
-b