just another perl shoter

#4