found this on my old backup.
this probably the last time i use perl.