Программисты на perl?

[alex_inside]

Немного с ошыпками, но всё же это perl...use Fotki2::Medved;

my $stepan = &Fotki2::Medved::getStepan() or die('Cant get Stepan!';

&Fotki2::Medved::randomizeMedvedies();

while (1) {
  my @medved = &Fotki2::Medved::getRandomMedvedsForUser($stepan) or die('Cant get Medved!');
  foreach @medved do &preved($_) or die('Medved failed to Preved!');
  &Fotki2::Medved::memcacheSurpriseData($stepan, \@medved);
}
PS: и ещё одна смешная надпись на доске в брифингруме :))
Тут был Степан!!!1