Помогите с Perl

[artii]

Perl не знаю, потому прошу помощи в написании простенького скрипта. Нужно чтоб генерился кусок строки произвольных символов с задаваемой длинной. например 8 символов - "poiqozij" и соединялся со строкой @yandex.ru и на выходе было poiqozij@yandex.ru

 

[RolCom]

Лови

#!/usr/bin/perl -w
@chars = ('a'..'z');
$mail .= $chars[rand @chars] for 1..8;
$mail .=  '@yandex.ru';
print $mail;

 

[x-tender]

Или так:
$mail .= chr(ord('a')+rand(26)) for 1..8;
$mail .= '@yandex.ru';
print $mail;