just another perl shoter

#3