just another perl shoter

shot but fast