in reply to Ssh Keys

One thing I always thought was really neat when I learned it is the "unless" conditional. 
if (-e !"/$home/.ssh/id_dsa.pub")

[download]
becomes 
unless (-e "/$home/.ssh/id_dsa.pub")

[download]
Once you grok that, you can go one step further and say 
if (-e !"/$home/.ssh/id_dsa.pub")
{
    `ssh-keygen -t dsa`
};

[download]
becomes 
`ssh-keygen -t dsa` unless (-e "/$home/.ssh/id_dsa.pub");

[download]

Update: Bad advice withdrawn

In Section Cool Uses for Perl