My perl sucks...

Long time since I last coded in perl.